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Curremly  ih?  dcvcUipnwni  ajul  niatnicnw'ce  of  DOD  einbcdtlcd  sofiwtrt  sysieitw 
with  hard  real-time  constraints  is  a  very  complex,  tim^-consuming  and  costly  task.  TItis 
situation  can  Ik  improved  by  the  use  of  adequate  development  methods  and  powerful 
support  tools,  litis  thesis  explores  the  development  and  integration  of  rapid  prototyjting 
tools  for  the  Computer  Aided  Prototyping  System  (CAPS).  (^PS  sujqwns  tltc  design 
tutd  evolution  of  large,  reliable  embedded  software  systems  while  significantly  reduebg 
their  associated  development  and  maintcnan>,2  costs, 

CAPS  utilizes  the  Prototype  System  Description  Language  (PSDL)  and  an  integrated 
set  of  construction  and  tuia'ysis  tools.  Tlie  integration  of  these  tools  utilizes  previous 
work  on  their  design,  with  partial  Implementations  and  feasibility  studies  for  some  of  the 
tools.  We  have  defined  and  implemented  a  user  interface  while  testing  previous  tools, 
rehning  the  designs  of  the  tools  and  either  refining  tlie  implementations  or  generating  the 
initial  implementations.  TIte  user  interface  provides  systematic  access  to  the  tools  of  the 
environment  to  support  the  underlying  rapid  prototyping  methodology.  Integration  issues 
include  system  configuration,  integration  testing,  design  modifications,  implementations, 
and  evolution  of  previously  developed  tools  within  this  rapid  prototyping  environment. 
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I.  INTRODUCTION 


Ttus  thesis  tlesi-ribes  the  tlsvclopnwni  of  n  rapid  proiotyping  environment.  Thii 
chapter  presents  a  brief  de  cription  of  tlte  software  engineering  problem  and  ciment 
incthinloKigies  utilired  In  software  dcvelopnwnt.  llic  Prototype  System  Desertion 
Language  tPSDLt,  the  Computer  Aided  Prototyping  System  (CAPS)  md  PSDL  proto¬ 
types  in  CAPS  are  tlescrilx:d  briefly  in  ilte  next  chapter  to  provide  «  fotindaiion  for  this 
thesis.  The  design  i*f  CAPS,  and  more  detailed  discussions  of  many  of  the  primary  tools 
in  the  cnvironivieni  are  contained  in  successive  chapters.  Tlwise  cliapters  are  followed 
with  our  conclusions  and  recommendations  for  furtlter  research. 

A.  .SOFTWARE  DEVELOPMENT 

Tltc  United  States  Dcp:uimcnt  of  Defense  (DoD)  is  currently  the  world’s  largest  user 
of  computers.  Each  year  billions  of  dollars  are  allocated  for  the  development  and 
maintcn.ancc  of  progressively  more  complex  weapons  and  communications  systems. 
Tlicse  systems  increasingly  rely  on  requirements  for  systems  which  process  infonnalion 
utilizing  embedded  computer  systems.  Tlicsc  systems  arc  often  characterized  by  max¬ 
imum  time  periods  or  deadlines  within  which  some  event  must  occur.  These  are  known 
os  hard  real-time  constraints.  Satellite  control  systems,  missile  guidance  systems  and 
communications  networks  are  examples  of  embedded  systems  with  hard  real-time  con¬ 
straints.  Correctness  and  reliability  of  these  software  systems  is  critical.  Software 
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(kveloptiKiu  of  these  systents  is  an  immense  task  with^tncreasinily  high  costs  and  poten¬ 
tial  for  misdevelopment  [1). 

Over  the  past  twenty  years,  the  technological  advances  in  con^ter  hardware  tech¬ 
nology  have  reduced  the  hardware  costs  of  a  total  system  from  85  percent  to  about  15 
percent.  In  the  early  1970s  studies  showed  that  computer  solbvare  alone  compriaed 
approximately  46  percent  of  the  estimated  total  DoD  computer  costs.  Of  this  cost,  56 
percent  was  devoted  specifically  to  embedded  systems.  In  spite  of  the  tremendous  cost, 
most  large  software  systems  were  clraracterized  as  not  providing  the  ftmctionality  that 
was  desired,  took  too  long  to  build,  cv>st  too  much  time  or  space  to  use,  and  could  not 
evolve  to  meet  the  user’s  changing  needs  (!]. 

Software  engineering  developed  in  ttspotat  to  the  need  to  design,  moment,  test, 
install  and  maintain  more  efficiently  wad  contctly  larger  and  mote  convex  software  sys¬ 
tems.  The  term  softH-are  engineering  was  coined  in  1967  by  a  NATO  study  group,  and 
endorsed  by  the  1968  NATO  Software  Engineering  Conference  [2].  The  conferees 
concluded  that  software  engineering  should  use  dte  frfulosophies  and  paradigma  of  tradi¬ 
tional  engineering  disciplines.  Numerous  methodologies  have  been  introduced  to  aup- 
port  software  engirteering.  The  two  major  approaches  which  underlie  these  different 
methodologies  are  the  waterfall  model  [3]  of  development  with  its  variants  sudt  as  the 
spiral  model  [4],  and  the  prototyping  [5]  method  of  development. 

The  waterfall  model  describes  a  sequential  approach  to  software  development  as 
shown  in  Figure  1-1.  The  requirements  are  completely  determined  before  the  system  is 
designed,  implemented  and  tested.  The  cost  of  systems  developed  using  this  model  is 
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very  Required  mo<Urica(ions  which  arc  realized  U(e  in  the  development  of  a  sys¬ 
tem,  such  as  during  the  testing  phase,  have  a  much  greater  impact  on  the  cost  of  the  sys¬ 
tem  than  titey  would  have  if  tltey  had  been  detennined  during  the  requirements  analysis 
stage  of  tlte  dcveIo{)ment.  Requirentents  analysis  may  be  considered  the  most  critical 
stage  of  software  development  since  this  is  witen  the  system  is  defined  [6]. 


Figure  1-1.  The  Waterfall  Model 


Requirements  are  often  incompletely  or  erroneously  specified  due  to  the  often  vast 
difference  in  the  technical  backgrounds  of  the  user  and  the  analyst.  It  is  often  the  case 
that  the  user  understands  his  application  area  but  doesn't  have  tiie  technical  background 
to  communicate  successfully  his  needs  to  the  analyst,  while  the  analyst  is  not  familiar 
enough  with  the  application  to  detect  a  misunderstanding  between  himself  and  the  user. 
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TIm  successful  devclopnieni  of  %  softwane  system  is  strictly  dependent  upon  this  process. 
The  analyst  must  umlerstand  the  needs  and  desires  of  the  user  and  the  performance  con* 
straints  of  tire  inteiuicd  software  system  in  order  to  specify  a  con^plete  and  correct 
software  system.  Requirements  specifications  are  still  most  widely  written  using  the 
English  language,  which  is  an  ambiguous  and  non-specific  mode  of  communication. 

B.  RAPID  PROTOTYPING 

The  waterfall  nrodel  lacks  automation  support.  Systematic  support  using  computer 
aided  tools  has  generally  been  unsuccessful  for  tire  waterfall  model  due  to  the  informal 
arrd  heuristic  nature  of  software  system  design.  Fonnal  modeling  of  software  systems 
and  formal  modeling  of  software  development  processes  are  key  issues  in  automating  the 
software  design  process.  Systematic  reuse  of  software  or  design  kirowledge  has  also 
been  difficult  because  of  tire  lack  of  specifications  and  explicitly  recorded  software 
design  kirowledge. 

Prototyping  ciqrtures  selected  aspects  of  the  proposed  system  by  generMing  execut¬ 
able  models  during  the  requirements  analysis  stage  of  software  development.  Trial  use 
of  tlrese  models  and  feedback  from  tire  users  are  major  mechanisms  used  to  determine  if 
the  defined  system  truly  meets  the  user’s  needs  before  the  system  is  designed,  imple¬ 
mented  and  tested.  When  the  requirements  have  been  validated,  tire  final  version  of  the 
executable  prototype  provides  a  skeleton  version  of  the  critical  aspects  of  the  proposed 
software  system.  The  prototype  design  should  be  extended  into  the  production  version  of 
the  proposed  software  system.  This  significantly  reduces  the  cost  and  time  of  software 
development  [5]. 
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’n»c  rapid  iterative  construction  of  prototypes  within  «  computer  aided  cnvlromncnl 
automates  tltc  prototyping  method  of  software  development  and  is  called  rapid  prototyp¬ 
ing,  Computer  support  shortens  tl»c  feedback  cycle  and  introduces  a  degree  of  fonnality 
into  the  process  of  detemrining  the  requirements  specifications.  This  offers  a  systematic 
way  to  rapidly  turn  the  requirements  specifications  into  executable  prototypes  which  can 
be  observed  and  tested  in  their  natural  environment.  Reuse  of  system  contponents  in  the 
process  reduces  tire  cost  and  effort  in  tire  iterative  process.  A  rapid  prototyping  irrodel 
[7]  as  applied  to  tire  requirenrents  analysis  phase  of  softwaie  development  is  shown  in 
Figure  1-2. 


Figure  1-2.  A  Rapid  Prototyping  Model 
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A  fonnal  autonwicd  proiotyping  process  requires  »  rapid  prototyping  environment 
[8j.  Such  an  cnviroiuncni  can  provirlc  the  designer  with  an  integraied  set  of  looli  which 
arc  used  to  ticsign  suid  test  prototypes  interactively.  The  requirements  analyst  and  the 
user  may  both  observe  the  behavior  of  the  prototype  and  ensure  that  the  requirements 
specifications  ntect  tlic  needs  of  the  user.  Rapid  prototyping  provides  an  efficient  and 
precise  meairs  to  determine  the  requirements  for  a  software  system,  and  greatly  improves 
tire  likelihooti  that  the  software  system  developed  from  these  requirements  will  be  com¬ 
plete,  correct  and  satisfactory  to  tire  user. 

'riiis  thesis  is  part  of  a  comprehensive  framework  for  computer  aided  proiotyping 
which  includes  language  support,  methodological  support  and  tool  suppon.  The  com¬ 
puter  aided  prototyping  system  is  a  pioneering  effort  with  a  long  lenn  impact  on  the  auto¬ 
mation  of  software  design. 
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II.  BACKGROUND 


A.  THE  PROTOTYPING  SYSTEM  DESIGN  LANGUAGE  (PSDL) 

PSDL  [9]  wu  designed  «s  a  prototyping  language  to  provide  the  designer  with  a  f.im« 
pte  means  to  specify  a  high-level  desertion  of  a  software  system.  PSDL  is  an  ideal 
language  for  a  rapid  prototyping  envirorunent  and  is  the  prototyping  language  used  by 
the  Con^ter  Aided  Prototyping  System  (CAPS).  The  design  of  PSDL  places  a  strong 
emphasis  on  modularity,  simplicity,  reuse,  adaptability,  abstraction,  and  requirements 
tracing  (5]. 

Modularity  is  essential  for  effective  modification.  Good  modularity  implies  a  proto¬ 
type  which  is  realized  by  a  set  of  independeiH  modules  with  narrow  and  explicitly 
specified  interfaces.  PSDL  supports  this  concept  by  means  of  operators  and  data  streams. 
Two  distinct  operators  can  communicate  or  affect  each  other's  behavior  only  when  a  data 
stream  explicitly  conrtects  the  two  operators. 

Sin^>licity  is  supported  by  the  small  set  of  powerful  constructs  provided  in  PSDL. 
PSDL  designs  are  networks  of  operators  connected  by  data  streams.  These  networks  can 
be  represented  as  data-flow  diagrams  augmented  v/ith  timing  and  control  constraints. 
Operators  in  the  system  can  represent  ftmetions  or  state  machines.  The  data  streams 
cany  exception  conditioru  or  values  of  arbitrary  abstract  data  types. 

PSDL  supports  reuse  through  uniform  specifications  suitable  for  retrieving  reusable 
con^nents  from  a  software  base.  The  specification  part  of  a  PSDL  component  contains 
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several  anribuics  which  tlcscribc  the  interface  and  behavior  of  the  con^ponenc.  Theae 
attributes  cait  be  used  to  generate  automatically  uniform  t^iheations  for  storing  and 
retrieving  reusable  components. 

PSDL  supports  adaptability  through  its  ability  to  make  small  modifications  to 
modules  by  means  of  the  control  constrimts.  Control  constraints  affect  modules  in 
several  ways.  They  can  be  used  to  impose  preconditions  on  the  execution  of  a  module, 
filter  the  output  of  a  module,  suppress  or  raise  exceptions  in  specified  conditions,  and  to 
control  timers.  These  facilities  provide  the  means  to  modify  the  behavior  of  a  module 
imiependenily  of  its  implementation. 

PSDL  provides  abstractions  suitable  for  describing  large  systems  which  may  contain 
real'tinre  constraints.  These  abstraaions  include  control  constraints,  timing  constraints, 
timers,  functional  absitactions  and  data  abstractions. 

PSDL  supports  requirements  tracmg  by  means  of  a  construct  for  declaring  the 
requirements  which  are  associated  with  each  part  of  a  prototype.  This  is  impoilant 
because  the  prototype  must  adapt  to  the  changing  perceptions  of  the  requirements  result¬ 
ing  from  evaluations  of  the  prototype  behavior. 

The  computational  model  underlying  PSDL  can  be  described  by  an  augmented  graph 
G  =  (V,E,T,C).  V  is  a  set  of  vertices.  E  b  a  set  of  edges.  T:V->R  u  |  ••  )  (where  R 
denotes  the  set  of  real  numbers)  is  a  fimetion  assigning  the  maximum  execution  time  for 
each  vertex  in  V.  PSDL  permits  bounded  and  unbounded  maximum  execution  times. 
C:V->R  U  (  oo  }  is  a  function  assigning  the  control  constraints  for  each  vertex  in  V.  In 
this  graph  a  vertex  represents  an  operator  and  an  edge  is  a  data  stream. 


8 


OPERATORA 

TOICOEREOBY  SOME  a.fr 


Figure  2-1  shows  an  example  of  a  PSDL  design  graph  with  operators  A  and  B,  and 
data  streams  a,  b,  c,  d.  The  graph  also  indicates  timing  constraints,  10  ms  for  A  and  20 
nts  for  B.  Control  constraints  are  provided  for  operator  A.  The  intended  meaning  of  this 
specification  is  that  operator  A  receives  ii^t  data  on  data  streams  a  and  b,  processes  the 
data  within  10  ms,  and  outputs  data  on  data  stream  c.  Operator  B  receives  input  data  on 
data  stream  c,  processes  the  data  within  20  ms,  and  outputs  data  on  data  stream  d. 

Operators  represent  functions  or  state  machines.  A  function  produces  output  whose 
value  is  solely  dependent  upon  the  input  values.  A  state  machine  produces  output  wliose 
value  depends  upon  the  input  values  and  on  internal  state  values  representing  some  part 
of  llie  history  of  computation.  Operators  can  be  triggered  either  by  the  arrival  of  input 
data  values  or  by  periodic  timing  constraints  which  specify  the  time  intervals  for  which 
an  operator  must  fire.  PSDL  operators  are  atomic  or  composite.  Atomic  operators 
represent  single  operations  and  caiuiot  be  decomposed  info  subcomponents.  Composite 


operators  represent  iKtworks  ot  opemiors  and  data  streams  into  which  the  operaion  may 
be  tkcom|x>sed.  Operators  are  also  either  periodic  or  sporadic.  Periodic  operators  fire  at 
regular  intervals  of  time  while  sporadic  operators  fire  when  them  is  new  data  on  a  set  of 
input  data  streants. 

Data  streams  represent  sequentiid  data  flow  mechanisms  which  move  data  between 
operators.  Data  streams  are  either  data  flow  data  streams  or  sampled  data  sttcams.  Data 
flow  data  streams  are  similar  to  FIFO  queues  with  a  length  of  one.  Any  value  placed  into 
the  queue  must  be  read  by  another  operator  before  any  other  data  value  may  be  placed 
into  the  queue.  Values  read  from  the  queue  are  removed  from  the  queue.  Samfrfed  data 
streams  may  be  considered  as  a  single  cell  which  may  be  written  to  or  read  from  at  any 
time  and  as  often  as  desired. 

Timing  constraints  ate  essential  for  real-tinte  systems.  The  timing  constraints 
impose  an  order  on  t^rator  firing  which  is  based  on  timing  rather  than  on  data  flow. 
There  are  three  basic  types  of  timing  constraints:  1)  maximum  execution  time,  2)  dead* 
line  or  maximum  response  time,  and  3)  minimum  calling  period.  Maximum  execution 
time  is  an  upper  bound  on  the  length  of  time  that  an  operator  may  use  to  complele  its 
function.  Deadlines  apply  only  to  periodic  operators  and  maximum  response  times  apply 
only  to  sporadic  operators.  For  periodic  operators,  the  deadline  is  an  tqjper  bound  on  the 
time  between  the  beginning  of  a  period  and  the  time  that  the  operator  places  the  last  out¬ 
put  value  onto  a  data  stream  during  a  period.  For  sporadic  operators,  the  maximum 
response  time  is  an  upper  bound  on  the  length  of  time  between  the  arrival  of  one  or  more 
new  data  values  on  an  input  data  stream  and  the  time  when  the  final  output  is  placed  on 
an  output  data  stream.  The  minimum  calling  period  applies  only  to  sporadic  operators 
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mi  represents  a  lower  bouivi  on  the  time  between  the  arrival  of  one  aet  of  inputs  and  the 
arrival  of  another  set  of  inputs. 

Control  constraints  are  the  mechanisnu  which  refine  and  adapt  the  behavior  of  PSDL 
operators.  They  specify  how  an  operator  may  be  fired,  how  exceptioos  may  be  raised, 
and  how  or  when  data  may  be  placed  onto  an  operator's  output  data  streams. 

The  PSDL  Grammar  is  shown  in  Appendix  A. 


B.  THE  COMPUTER  AIDED  PROTOTYPING  SYSTEM  (CAPS) 

CAPS  is  a  unique  rapid  prototyping  environment  which  includes  the  ability  to  proto¬ 
type  hard  real-time  systems.  CAPS  utilizes  PSDL  and  an  mtcgraled  set  of  prototyping 
tools.  The  tools  are  integrated  through  the  user  interface.  The  primafy  tools  in  CAPS 
may  be  divided  into  three  main  subsystems  (5).  The  subsystems  and  their  tools  are: 

(1)  the  User  Interface  which  is  conqprised  of: 

-  a  Gr^)hic  Editor  (lOJ 

-  a  Syntax  Directed  Editor  (1 1] 

-  a  Browser  (5] 

-  an  Expert  System  [3] 

(2)  the  Software  Database  System  which  is  comprised  of: 

-  a  Software  Design  Management  System  (Sj 

-  a  Design  Database  [12] 

‘  a  Software  Base  L13] 

(3)  the  Execution  Support  System  which  is  comprised  of: 

-  a  Translator  [14] 

-  a  Static  Scheduler  [13,16] 

-  a  Dynamic  Scheduler  [17] 

-  a  Debugger [17] 
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'Htc  Grnphic  E<ii(or  is  a  lool  which  penniis  a  designer  to  specify  the  portions  of  • 
PSDL  prototype  rising  graphical  objects  to  represent  the  system.  Graphical  objects 
include  operators,  inputs,  outputs,  data  flows  and  self  loops  cn  operMors.  All  grtphic 
objects  arc  named  an<l  may  have  time  ermstraints  associated  with  them. 

'Hic  Syntax  Directed  Editor  is  used  by  the  designer  to  enter  the  textual  portions  of  the 
prototype  design  not  represented  by  the  graphic  editor  and  to  ensure  that  the  prototype  is 
syntactically  correct  PSDL. 

Tire  Browser  provides  a  means  for  the  designer  to  view  reusable  compoitenfs  in  the 
software  base, 

The  Expert  System  provides  a  pan^asing  capability  that  generates  English  text 
descriptions  of  PSDL  specifications.  Tliis  tools  permits  users  who  arc  unfa.miliar  whh 
the  PSDL  language  to  evaluate  a  prototype. 

The  Software  Design  Management  System  manages  and  retrieves  the  versions, 
refinements  and  alternatives  of  the  prototypes  in  the  design  database  and  the  reusable 
components  in  the  software  base. 

The  Design  Database  contains  PSDL  prototype  descriptions  for  all  software  projects 
developed  using  CAPS. 

The  Software  Base  contains  PSDL  descriptions  and  implementations  for  all  reusable 
software  components  developed  using  CAPS. 

The  Translator  generates  high  level  code  from  the  PSDL  prototype  which  binds  the 
reusable  components  from  the  software  base  to  the  executable  prototype. 
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'IIk  Static  Scitcdukr  attempts  to  allocate  time  slots  for  the  representations  of  PSDL 
operators  with  real-time  r.omtraints  before  tire  prototype  is  executed.  If  the  allocation 
succeeds,  all  operators  are  guaranteed  to  meet  their  deadlines. 

The  Dynamic  Scheduler  invokes  representations  of  operators  without  real-time  con¬ 
straints  at  run-time  to  occupy  time  slots  which  ate  not  used  by  operators  with  real-time 
constraints.  The  time  slots  which  the  dynamk  scheduler  uses  are  considered  as  "slack 
times".  Dynamic  schedulinf  occurs  during  execution  of  the  prototype. 

The  Debugger  allows  the  designer  to  interact  with  the  execution  suppott  system.  The 
debugger  has  facilities  for  initiating  the  execution  of  a  prototype,  disidaying  execution 
results  or  tracing  information  of  the  execution,  and  gathering  statistics  about  a 
prototype's  behavior  and  performance. 

Prior  to  the  work  described  in  this  thesis,  partial  implementations  had  been 
developed  for  the  griphic  editor,  translator  and  the  static  scheduler.  Designs  of  an  expert 
user  interface  and  a  debugger  had  been  defined.  Feasibility  studies  had  been  conducted 
for  the  syntax  directed  editor,  design  database  and  the  software  base. 

C.  PSDL  PROTOTYPES  IN  CAPS 

PSDL  prototypes  ate  described  by  the  desigrrer  in  the  graphic  editor  or  the  syntax 
directed  editor.  Once  a  prototype  has  been  specified,  the  tools  within  the  execution  sup¬ 
pott  system  will  constnict  an  executable  view  of  the  prototype  and  then  actually  execute 
the  prototype.  The  execution  support  system  assumes  a  syntactically  correct  PSDL 
description. 
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rSOL  |)ro(Q:yi)e  coi»poiKnu  «re  eititcr  tii  operator  or  «  data  type.  A  PSDL  proto¬ 
type  ittay  ccittaitt  ntuliiple  type  aiKi/or  t^rator  cotnponents,  AU  PSDL  componenia  have 
a  specification  part  and  am  tnaplenaeniation  pait.  The  in^ementatten  patt  may  either  be  a 
PSDL  iinplcnaentaiion  or  an  Ada  implementation. 

'Hae  pur][K>se  of  tlae  two  different  implementation  constructc  ia  to  provide  a  simple 
means  for  decomposing  a  prototype.  A  PSDL  prototype  can  be  represented  by  a  tree 
structure.  The  leaves  of  the  tree  are  atomic  level  con^aonents  and  they  contain  Ada 
implementation  parts.  Figure  2-2  contains  a  simple  top  level  graphic  represemation  of  a 
PSDL  prototype. 


Figure  2-2.  PSDL  Prototype 


If  the  node  SYSTEM  has  a  match  in  the  software  base  of  reusable  Ada  software  com¬ 
ponents,  then  tire  node  SYSTEM  is  atomic  and  con^rises  a  comfdele  description  of  the 
prototype  SYSTEM.  In  this  case  no  fuither  decomposition  is  required.  If  a  match  for 
SYSTEM  is  not  found  in  the  software  base  then  the  node  SYSTEM  is  considered  a  compo¬ 
site  operator.  In  this  case  the  designer  has  two  clioices.  If  the  designer  does  not  lecog- 
niie  a  conceptual  decomposition  of  SYSTEM  then  the  designer  considers  SYSTEM  as 
atomic  although  an  Ada  representation  does  not  already  exist.  The  designer  may  then 
provide  an  Ada  implementation  tor  SYSTEM.  The  Ada  implementation  will  be  internally 
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siibsiitutcd  for  tlw  PSDL  itnplcn)cnu(ton.  The  prototype  woujid  then  be  completely 
<lc3cribcd  ukI  U  atomic.  Tlte  Ada  implentcntation  will  become  a  penUtent  component  in 
the  software  base  and  will  be  matched  in  future  sessions  with  CAPS.  If  the  designer  real* 
izes  a  decomposition  for  SYSTEM,  then  the  designer  will  decompose  the  con^tosite 
operator  with  SYSTEM  as  the  root  of  the  tree.  An  example  of  a  possible  graphic  decom* 
position  is  sliown  in  Figure  2-3.  The  new  operators  resulting  from  the  decomposition  are 
children  of  the  operator  SYSTEM  in  the  tree  stmeturo. 


SYSTEM 


Figure  2-3.  Decomposed  PSDL  Prototype. 


The  identification  and  decomposition  is  recursively  applied  until  the  leaves  of  the 
tree  all  contain  Ada  implementations.  A  possible  complete  tree  stnicture  for  SYSTEM 
can  be  a  sirigle  node.  The  complete  tree  structure  will  have  a  depth  which  is  defined  by 
the  maturity  and  modularity  of  the  software  base  and/or  the  designer's  conceptual  model 
of  a  properly  decomposed  system.  A  possible  complete  tree  structure  for  a  PSDL  proto¬ 
type  is  shown  in  Figure  2-4.  It  has  two  composite  operatora;  SYSTEM  and  OP_2,  and 
three  atomic  operators  OP_l,  OP_2A  aixi  OP_2B. 
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A  puticular  software  base  w.ill  eventually  contain  decon^KMitioni  which  reflect  the 
style  of  thinking  used  by  its  designers.  It  will  become  customized  to  its  usen  as  it 
matures.  The  reusable  components  which  are  added  to  an  initial  software  base  reflect  the 
level  of  decomposition  that  the  designers  utilize  in  describing  the  systems  which  they 
decompose.  If  the  designers  decide  to  provide  Ada  implementations  at  a  high  level  of 
decomposition  then  the  reusable  components  may  tend  to  be  large  in  size  and  may  gen* 
erally  be  very  specific  to  ceitain  applications.  If  the  designers  decompose  the  system  into 
very  small  modules,  then  the  Ada  implementations  in  the  reusable  software  base  will 
tend  to  be  very  small  and  wUl  more  likely  occur  more  frequently  in  the  design  of  succes¬ 
sive  systems. 


TIk  evolution  of  the  software  base  of  reusable  components  reflects  the  designers 
preference  between  using  PSDL  and  using  Ada  to  express  their  own  concepts  of  a  sys< 
tent,  The  desigit  database  will  also  reflect  the  style  of  its  users. 

The  success  of  any  rapid  prototyping  environment  is  strongly  linked  to  the  means  by 
which  the  designers  may  describe  their  prototypes.  CAPS  provides  two  means  of 
describing  prototypes:  the  graphic  editor  and  the  syntax  directed  editor.  The  majority  of 
the  designs  in  the  design  database  will  eventually  be  in  the  fonn  that  the  users  prefer. 

The  provision  of  two  means  for  user  input  is  an  impoitant  human  factors  feature. 
CAPS  does  not  attempt  to  constrain  a  designer  to  one  mode  of  input.  While  visual  pro¬ 
gramming  [18]  is  gaining  momentum  in  research,  the  designers  of  CAPS  recognise  that 
constraining  a  user  to  one  particular  mode  of  irqrut  which  emphasizes  Just  one  method  of 
abstraction  might  possibly  reduce  the  effectiveness  of  the  environment  when  ^iplied 
across  a  broad  sample  of  users. 

A  current  research  question  with  regard  to  nq>id  prototyping  is  whether  or  not  it  is 
really  necessary  to  design  a  new  language  specifically  for  prototyping,  and  if  so,  what  arc 
the  necessary  features  and  characteristics  of  the  language? 

The  influence  of  any  language  on  the  problem  domain  must  be  considered.  In  this 
regard,  MacLennan  refers  us  to  the  Sapir-Whorf  hypothesis  [19]  which  states  that  the 
structure  of  language  defines  the  boundaries  of  thought.  The  use  of  a  given  language 
does  not  prevent  certain  thoughts  but  does  facilitate  or  in^de  certain  modes  of  thought. 
This  lends  support  to  the  idea  that  a  careful  choice  of  language  can  reduce  the  conceptual 
barriers  in  the  design  of  embedded  software  systems. 
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to  (he  perceived 


Computer  languages  have  evolved  over  time  in  response  to  (he  perceived  pr<mt^ 
of  existing  languages.  As  languages  Itave  evolved,  important  principled  which  relate  t 


the  design,  evaluation,  and  implementation  of  languages  have  evolved  «  well.  Ada  has  > 

K 

been  designed  as  a  response  to  DoD's  need  for  a  standard  language  whildt  pluvkles  all  of 
the  features  we  currently  perceive  as  necessary  to  develop  and  maintain  large  softwii&es.; 
systems.  Ada  contains  features  which  were  not  encompassed  in  any  one.  previously 
existing  language.  Since  our  rapid  prototyping  environment  is  aimed  at^arge,  real-time, 
embedded  systems,  our  executable  prototypes  must  be  able  to  be  express^  in  Ada.  Ada 
is  a  complex  language  which  supports  abstraction,  information  hiding,  nux^larity,  locali¬ 
zation,  uniformity,  completeness  and  confirmability.  The  complexity  of  aL  leads  to  the 
need  for  a  prototyping  language. 


The  prototyping  language  must  provide  a  simple  yet  expressive  means  for  a  designer 
to  describe  a  system.  The  prototyping  language  must  support  a  cost  effective  means  to 
establish  the  requirements  of  a  system.  The  prototyping  language  must  support  the 
features  of  the  Ada  programming  language.  PSDL  meets  these  requirements  [20]. 
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in.  DESIGN  ISSUES  FOR  THE  DEVELOPMENT  OF  CAPS 


The  design  and  feasibility  study  of  CAPS  has  been  paitiaily  influenced  by  local 
resources,  personnel  and  equipment.  Although  the  primary  researchers  are  permanently 
assigned,  the  secondary  researchers  are  mostly  students  with  diverse  backgrounds  who 
are  able  to  devote  only  a  short  period  of  time  towards  development.  Student  contribu¬ 
tions  have  varied  in  methodology  and  programming  languages  used,  and  they  reflect  the 
somewhat  diverse  backgrounds  of  the  many  students  who  have  been  involved.  The 
development  of  CAPS  has  been  a  long  term  project.  The  design  and  feasibility  study  for 
the  implementation  of  the  undalying  prototyping  language  has  occurred  over  the  last  five 
years,  and  continues  to  progress. 

A.  CAPS  SYSTEM  CONnGURATION 

The  initial  step  in  the  development  of  our  nq)id  prototyping  environment  was  to 
define  an  interface  between  tools  and  a  system  configuration.  The  best  utilization  of  pre¬ 
vious  work  in  the  design  and  implementation  of  CAPS  tools  was  an  essential  factor  in 
our  decision.  The  previous  development  of  CAPS  tools  utilized  and  assumed  the  availa¬ 
bility  of  a  Sun  Workstation. 

There  were  two  primary  methods  of  integration  considered  for  the  initial  develop¬ 
ment  of  CAPS.  One  method  was  to  define  an  interface  which  would  manage  a  collection 
of  loosely  coupled  tools.  The  second  method  was  to  define  a  software  architecture  as  a 
foundation  for  tool  integration. 
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'I'lid  Sun  Operating  System  provides  tire  simple  UNIX  [21]  interface  of  the  text 
streant.  llte  UNIX  methcKl  of  tool  integration  defines  an  environoKnt  which  comists  of  A 
collection  of  loosely  coupled  tools.  An  advantage  of  this  method  is  its  simplicity.  An 
environiiKnt  shell  program  which  provides  the  interface  with  the  user  and  mmages  the 
communications  between  the  tools  provides  an  easy  means  to  integrate  new  tools  and  to 
extend  the  capabilities  of  existing  tools.  A  disadvantage  of  this  method  of  integration  is 
that  it  may  result  in  multiple  data  components  which  represent  a  prototype.  Each  data 
component  produced  by  a  particular  tool  is  most  likely  a  partial  view  of  a  con^kie  pro¬ 
totype  whicw  reflects  the  transformation  of  data  performed  by  each  particular  tool.  Other 
disadvantages  of  this  method  ate  that  the  interface  must  be  modified  to  add  or  remove 
tools  from  the  system  and  that  the  environment  contains  a  lesser  deg-tee  of  integnUion 
granularity. 

An  example  of  the  second  method  of  integration  is  the  Illinois  Software  Engineering 
Program  (ISEP)  [22]  which  describes  an  open  systems  architecture  for  tool  integration. 
This  method  defines  a  software  bus  which  provides  for  the  interconnection  and  intercom¬ 
munication  between  the  tools  within  the  environment.  All  tools  communicate  with  other 
tools  by  means  of  a  set  of  communication  protocols  specially  defined  for  each  tool.  Any 
two  tools  may  communicate  which  have  a  common  set  of  protocols.  The  advantage  of 
this  methodology  is  that  it  is  intended  to  support  the  integration  of  new  tools  indepen¬ 
dently  of  the  otlier  tools  in  the  environment.  The  disadvantage  of  this  methodology  is 
that  it  requires  the  development  of  a  complex  set  of  protocols  for  each  tool  in  the 
environment. 
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The  previous  work  on  the  bottom-up  development  of  the  CAPS  tooU  aseumed  the 
first  iiKthod  of  integration.  Due  to  this  assun^ion  and  its  simplicity  we  choae  to  connect 
the  tools  within  the  CAPS  envirenment  in  the  UNDC  fashion  by  passbii  streams  of  data 
between  the  different  tools. 

The  system  configuration  for  CAPS  is  a  natural  decomposition  of  the  CAPS  detign. 
A  system  directory  is  considered  the  root  of  the  environment  with  subdirectories  for  each 
of  the  tools.  The  subdirectories  contain  the  required  components  that  make  up  each  of 
the  tools  and  contain  documentation  tqiecihc  to  each  tool. 

B.  METHODOLOGY  FOR  INTEGRATION 

The  first  implementation  requirement  for  the  environment  is  the  user  interfKe,  siiKO 
it  is  the  user  interface  which  manages  the  tools  in  the  environment.  Once  a  basic  user 
interface  was  designed,  we  lealixed  that  the  process  of  integration  would  be  a  somewhat 
circular  process  with  iterative  refinements. 

The  interdependence  of  the  CAPS  tools  required  us  to  simulate  the  fimctlonality  of 
some  tools  while  testing  odier  tools.  We  decided  that  the  most  natural  tods  to  include  in 
the  initial  integration  process  were  the  tools  within  the  user  interface.  The  directory  pro¬ 
totypes  in  the  system  configuration  simulates  the  storage  locations  of  botli  the  design 
database  and  the  software  base.  We  realized  that  the  database  managetiMSit  functions 
could  be  performed  manually  untU  development,  integration,  and  testing  of  the  databases 
could  be  perfor^icd. 
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A  systentatic  approach  for  the  integration  of  a  partially  developed  set  of  tools  was 
e^tablislKci  which  would  make  the  beat  use  of  previous  work.  The  integration  methotM* 
ogy  for  the  tools  consists  of  ten  primary  steps: 

Step  1: 

Identify,  locate  and  relocate  all  of  the  subcon^xMienfs  and  products  of  a  particttlar 
tool.  The  subcomponents  were  relocated  to  form  an  identihaMe  modular  representa¬ 
tion  of  each  particular  tool. 

Step  2; 

Determine  the  dependencies  between  the  subconyonents  of  eadi  tool  and  to  deter¬ 
mine  how  each  subcomponent  was  intended  to  interact  with  the  other  subcom¬ 
ponents. 

Step  3: 

Resolve  any  naming  conflicts  which  existed  with  the  subcomponents  of  a  tool  or  the 
data  it  produced  with  die  names  expected  by  other  tools  in  the  environment. 

Step  4: 

Determine  how  to  compile  the  various  subconyonents,  and  to  determine  which  sys¬ 
tem  libraries  needed  to  be  linked  with  eadi  subconyonents. 

StepS: 

Separate  the  ftmcdonsl  conyonenis  of  a  tod  from  the  partial  views  of  a  prototype 
which  were  used  by  the  previous  developers  to  test  their  tools  and  to  load  Iheae  sub¬ 
components  in  the  proper  places  within  our  system  configuration. 
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Step  6: 

Tcjst  each  (ool  (o  validate  the  functionality  of  the  tool  with  its  ptevious  documenta¬ 
tion.  In  most  cases  the  previous  documetuation  did  not  make  much  distinction 
between  the  long  tenn  designs  and  the  state  of  the  actual  implementations  of  the 
tools. 

Step  7: 

Identify  areas  of  functionality  which  would  significantly  improve  the  usefulness  of 
each  tool. 

Step  8: 

Correct  bugs  discovered  during  the  sixth  step,  implement  features  of  the  tools  which 
were  described  in  the  previous  design  but  which  had  not  actually  been  imple¬ 
mented;  and  implement  features  identified  in  step  seven. 

Step  9: 

Identify  test  cases  which  were  ppropriate  for  the  current  state  of  the  environment 
and  lest  the  tool  from  within  CAPS. 

Step  10: 

Document  the  results  of  the  ninth  step  and  to  document  any  new  ideas  which 
resulted  from  the  integration  testing  and  evaluation  of  the  current  tool. 

C.  PORTABILITY  AND  SYSTEM  DEPENDENCIES 

The  primary  goal  of  the  CAPS  designers  is  to  focus  on  the  design  and  feasibility  of 
developing  a  rapid  prototyping  environment  and  not  on  the  development  of  a  production 
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system.  An  early  decision  was  made  to  accept  dependence  upon  the  beat  locally  avail¬ 
able  resources.  Ponability  of  our  panicular  environment  U  considered  a  secondary  gold. 

Our  implementation  currently  uses  the  local  Sun  system  configuration  and  dqiends 
on  features  of  the  local  installation  such  as  the  server  and  printer  names  on  our  Sun  NFS. 
The  use  of  these  local  resources  enhances  the  development  process  by  permitting  mote 
flexibility  in  the  use  of  local  resources  shared  by  many  other  students  and  faculty  at  our 
research  location.  The  use  of  system  dependent  name  definitions  have  been  localized  to 
the  front  emi  of  the  user  interface.  TIris  localization  allows  the  system  to  bo  redefined 
with  minimum  effort. 

An  early  decision  was  also  made  to  utilize  existing  tools  for  the  development  of  our 
own  tools  and  our  environment.  Pan  of  the  research  involved  with  the  development  of 
our  environment  and  its  tools  was  to  survey  and  evaluate  existing  tools  which  were 
potential  candidates  for  use  in  developing  our  tools  or  as  candidates  to  be  integrated  into 
CAPS  to  represent  one  of  our  tools. 
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IV.  THE  USER  INTERFACE 


A.  PREVIOUS  DESIGN 

TIk:  previous  design  of  «n  expert  user  interface  [23]  defines  an  interface  which  pro¬ 
vides  sequence  control  with  data  protection.  The  user  interface  guides  a  user  through  the 
rapid  prototyping  process  according  to  the  following  guidelines  [23]: 

-  nrite  interface  must  be  able  to  interpret  what  the  user  is  doing  at 
any  tin>e  and  provide  support". 

-  'The  expert  system  must  communicate  with  the  users  to  find  out  what 
they  want  to  do  at  any  moment  when  the  system  cannot  be  sure  of  the 
user's  intentions". 

Tlte  following  goals  were  defined  in  the  design  of  the  user  interface: 

-  Required  input  data  should  only  be  entered  once. 

•  Feedback  should  always  be  provided  during  data  entry. 

-  The  user  interface  should  be  adaptable  to  accommodate  both  the 
novice  and  the  experienced  user. 

The  major  commands  defined  in  the  top  level  user's  manual  were: 

-  caps 

-  construct 

-  execute 

-modify 


B.  PREVIOUS  IMPLEMENTATION 

An  implementation  for  the  user  interface  had  not  been  previously  developed.  Raum 
[23]  described  and  implemented  a  link  statement  analyzer  as  part  of  the  user  interface. 
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The  link  s(»(cmont  aniilyzcr  (ramlntc^  the  link  staietnents  generated  by  the  graphic  editor 
into  textual  PSDL  coitstnicts, 

TIk:  input  to  tlie  link  statenKnt  analyzer  U  a  data  component  produced  by  the  graphic 
editor  and  stored  itt  tlte  file  grttphJinks.  Tlte  data  in  this  file  are  PSDL  link  statements 
which  represent  the  grapliic  structure  of  a  PSDL  design.  The  form  of  a  liitk  statemerK 
witiraut  an  optional  maximum  execution  tinte  is  name.source->sink  where  name  is  the 
name  of  the  data,  and  source  and  sink  are  either  the  keyword  EXTERNAL  or  names  of 
operators.  The  form  of  a  link  statement  with  an  MET  is  name.source:MEr‘>sink,  Fig¬ 
ure  4-1  (a)  shows  a  PSDL  design  produced  with  the  graphic  editor.  The  corte^Kmding 
link  statements  generated  are  depicted  in  Figure  4-1  (b). 

The  link  statement  analyzer  processes  Uk  link  statements  aiul  generates  two  new  data 
components.  A  file  called  psdi.ds  is  created  which  contains  a  list  of  all  PSDL  data 
streams  in  the  graph.  Adtlition^  files  are  created  for  each  operator  in  the  graph.  These 
files  are  called  NewNodeXfC,  where  the  XX  represents  arbitrarily  assigned  consecutive 
numbers.  The  NewNodeXX  files  are  textual  PSDL  specification  parts  which  contain  all 
the  information  about  an  operator  which  was  entered  through  the  gng)hic  editor.  These 
files  are  intended  to  represent  the  prototype  in  the  design  database.  This  design  does  not 
account  for  multiple  instances  of  prototypes,  or  describe  how  related  components  are 
linked  together  in  the  design  database.  Figure  4-2  (a)  shows  the  data  component  psdi.ds 
and  Figure  4-2  (b)  shows  the  data  components  NewNode.QJ  and  NewNode.02. 

Although  the  link  statement  analyzer  was  first  designed  as  part  of  the  user  interface, 
we  now  consider  it  to  be  a  con^ranent  of  the  graphic  editor. 
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a. EXTERNAL“>op_l 

b. EXTERNAL->op”l 

c. op_l:10  mS“>op_2 

d. op__2;20  ins->op__2 

e. op“2;20  mS“>EXTERNAL 


(b) 


Figure  4-1.  PSDL  Gnmh  and  Link  Statements 


DATA  STREAM  C 


(«) 


OPERATOR  Op  1 
SPECIFICATION 
INPUT  0 
b 

OUTPUT  c 

MAXIMUM  EXECUTION  TIME  10  ms 
END 


OPERATOR  Op_2 
SPECIFICATION 
INPUT  C 
STATE  d 
OUTPUT  e 

MAXIMUM  EXECUTION  TIME  20  ms 
END 

(b) 


Figure  4-2.  Products  Of  The  Link  Statement  Analyzer 


C,  MODinCA'nONS  TO  THE  DESIGN 

Our  modifications  and  enhancements  to  the  previous  design  addressed  the  following 
issues: 

-  the  responsibilities  of  the  user  interface 

-  a  metiiodology  for  user  interaction 
••  the  menu  functions 

-  view  consistency 
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1.  Il9cr  Interface  Responsibilittes 

We  rccicrined  tiie  nKaning  of  the  user  inieriace  for  in^lemcntation  purpoaes. 
Raum's  design  of  the  user  interface  maintained  the  idea  that  the  user  interface  wag  one  of 
the  three  main  components  of  CAPS.  Raum  described  Botime  Shell  Scripts  which  only 
managed  the  activities  of  the  con^xments  of  the  user  interface,  such  as  the  graphic  editor, 
syntax  directed  editor,  browser,  expert  systan  and  the  debugger.  As  described  in  the  pre¬ 
vious  chapter  we  now  view  the  user  interface  as  the  shell  of  the  envirorunent  which 
interacts  with  the  user  and  manages  all  of  the  tools  within  the  CAPS  environment  and  not 
just  the  tools  which  interact  with  the  user.  The  effect  of  this  modification  changes  the 
responsibilities  of  the  user  interface. 

The  caps  command  was  originally  intended  to  be  used  to  place  the  user  into  the 
user  interface  portion  of  CAPS.  The  original  caps  command  was  to  allow  an  optional 
argument  to  assign  a  name  to  a  new  prototype.  The  caps  commartd  is  rx>w  used  to  enter 
the  CAPS  environment.  The  specification  of  a  prototype  name  is  not  appropriate  at  this 
level  and  the  names  of  prototypes  will  be  controlled  from  within  the  environmertt. 

2.  Methodology  For  User  Interaction 

We  decided  to  design  a  simple  menu  driven  interface  for  our  initial  integration. 
Since  the  functionality  of  the  user  interface  had  not  yet  been  well  defined,  we  wanted  to 
provide  a  simple  mechanism  for  integrating  the  previous  work  on  the  various  tool  Ve 
chose  text  menus  as  our  first  mechanism  for  user  interaction.  We  decided  to  utilize 
mnemonic  lettering  for  option  selections.  Selections  are  made  by  typing  the  first  lower 
case  letter  of  an  option  at  the  prompt.  The  character  selection  mechanism  only  requires 
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that  ihe  user  reiDcmbcr  the  activity  that  he  wishes  to  be  performed.  This  approach  sup- 
pons  type-ttitetid  selections  an<i  system  evolution  [24].  Ultimately,  we  intend  to  imple¬ 
ment  a  graphic  interface. 

3.  Menu  Functions 

We  defined  nvenus  which  guide  the  u,ser  throu;sh  the  process  of  ri4)id  prototyping. 
TIk  main  menu  contains  the  functioits: 

-  construct 

-  execute 
-modify 

-  quit 

The  construct  option  places  the  designer  in  another  menu  which  dis{days  the 
choices  of  construction  tools.  Currently  the  choices  are  to  use  the  graphic  editor  or  the 
syntax  directed  editor. 

The  execute  option  activates  the  execution  support  tools.  These  tools  are  the 
translator,  the  static  scheduler  and  the  dynamic  scheduler.  After  these  tools  produce  the 
data  components  which  represent  the  executable  prototype,  the  data  components  are 
automatically  compiled,  linked,  and  executed. 

The  execution  status  messages  were  previously  defined  as: 

Translation  Complete 
Static  Scheduler  Complete 
Dynamic  Scheduler  Complete 
Compilation  Complete 
Linking  Complete 
Execution  Complete 

These  messages  were  used  to  bridge  the  wait  time  the  user  experienced  while  these 
actions  are  performed.  These  messages  were  to  be  displayed  after  the  action  occurred. 
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Wc  realized  that  a  tiressagc  which  infonns  a  user  of  the  cunem  activity  rather  than  the 
previous  cause  of  delay,  is  generally  more  satisfactory.  The  status  message  for  Imking 
was  delemiined  to  be  umiecessary.  The  execution  support  tools  each  produce  data  com* 
ponents  which  partially  represent  the  executable  prototype.  All  data  con^xments  are 
compiled  and  linked  during  the  compilation  state.  We  defined  two  status  messages 
which  reflect  the  execution  of  the  prototype.  Since  die  execution  of  an  embedded  system 
implies  a  continuous  system,  we  defured  an  additional  status  message  which  responds  to 
a  user  input  of  turning  off  the  system.  The  current  staius  messages  are: 

Translating ... 

Building  Static  Schedule ... 

Building  Dynamic  Schedule ... 

Compiling ... 

Executing ... 

Execution  Complete 

The  modify  option  had  not  yet  been  well  defined  in  the  previous  documentation. 
We  have  defined  the  modify  process  to  be  equivalent  to  the  construct  process  with  one 
major  difference.  When  the  modify  option  is  selected  a  window  should  be  opened  which 
contains  the  top-level  names  of  all  existing  prototypes  in  the  design  database.  The  user 
should  be  able  to  select  a  prototype  for  modification  by  selecting  an  entry  with  the 
mouse.  If  the  user  selects  a  prototype  with  a  .graph  suffix,  the  graphic  editor  sIuMild  be 
automatically  activated  by  the  user  interface.  If  the  user  selects  a  prototype  with  a  .text 
suffix,  the  syntax  directed  editor  should  be  automatically  activated  by  the  user  interface. 

Tlie  quit  option  was  not  defined  in  the  previous  documentation.  The  quit  option 
should  be  used  to  permit  the  user  to  clean  up  versions  of  prototype  designs  which  were 
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generated  during  the  current  session  before  exiting  the  environment.  This  process  could 
occur  as  shown  in  Figure  ‘l-S. 


Do  you  wish  to  save: 

prototypal. text?  (y/n)  ;  y 
prototypal. graph?  (y/n)  :  y 
prototype?. text?  (y/n)  :  n 
prototype?, graph?  (y/n)  ;  n 


Figure  4'<3.  Quit  Process 


4.  View  Consistency 

A  view  is  a  representation  for  a  particular  abstraction.  Multiple  views  may  be 
associated  with  the  same  abstraction.  View  consistency  defines  a  principle  where  multi¬ 
ple  views  of  tiie  same  abstraction  are  always  equivalent.  This  means  that  a  change  in  one 
view  must  be  reflected  in  all  other  views  which  represent  the  same  abstraction.  View 
consistency  between  the  graphic  and  textual  representations  of  prototype  designs  was  an 
important  issue  of  integration  which  still  requires  further  consideration. 

Since  the  constmetion  of  a  prototype  design  is  expected  to  be  an  iterative  process, 
consistency  issues  are  an  immediate  concern.  Because  CAPS  supports  the  evolution  of 
software  systems  which  may  be  developed  and  maintained  by  a  large  number  of  develop¬ 
ers,  we  should  not  constrain  the  view  of  a  prototype  to  the  preferences  of  one  particular 
user.  A  view  of  a  prototype  may  be  required  by  mui'tiple  users  in  the  development  pro¬ 
cess,  and  may  be  required  by  many  other  users  during  evolution. 
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'Hie  view  consistency  problem  is  affected  by  the  c^bilities  of  the  graphic  editor 
ami  tlie  syntax  directed  editor.  This  nieatvi  that  the  problem  is  different  dependent  upon 
whether  a  prototype  may  be  completely  or  partially  described  within  each  tool.  If  we 
constrain  the  capability  of  the  graphic  editor  to  describe  only  a  simple  data-flow  diagram 
which  represents  the  PSDL  graph  construct  and  not  permit  the  capability  to  completely 
describe  the  prototype,  then  we  define  this  as  a  partial  graphic  view.  If  the  syntax 
directed  editor  does  not  permit  the  cr^iability  to  describe  textually  the  link  statements  of  a 
PSDL  graph  construct,  then  we  define  this  as  a  partiid  textual  view.  If  a  prototype  may 
be  described  con^letely  within  the  graphic  editor  or  the  syntax  directed  editor,  then  we 
define  these  views  as  a  complete  graphic  view  or  a  complete  textual  view.  ‘The  method 
of  interaction  between  the  construction  tools  will  be  dependent  upon  the  final  capabilities 
of  the  tools. 

An  initial  view  consistency  exists  for  prototypes  designed  with  the  graphic  editor. 
The  gnqihic  editor  generates  a  textual  representation  which  is  used  by  other  tools  later  in 
the  ri^id  prototyping  process.  Our  initial  pipeline  communication  design  will  not  ade¬ 
quately  support  view  consistency  for  prototypes  which  were  initially  described  as  a  tex¬ 
tual  representation  or  for  modified  textual  representations. 

The  problem  with  view  consistency  for  textual  representations  is  that  the  two 
dimensional  translation  of  logical  objects  into  a  graphic  representation  does  not  have  a 
generally  satisfactory  solution.  Even  if  both  tools  utilize  a  common  data  structure,  the 
logical  objects  in  the  common  data  structure  would  still  require  a  graphic  translation  for 
the  layout  used  in  the  graphic  editor. 
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One  solution  which  supports  view  consistency  is  to  define  the  gri^ic  editor  as 
the  prinuity  construction  tool  front  which  the  prototype  is  completely  described.  The 
interaction  with  the  graphic  editor  would  prorluce  a  partial  graphic  view  and  interaction 
with  the  syntax  directed  editor  would  produce  a  partial  textual  view.  The  graphic  editor 
would  utilize  the  syntax  directed  editor  as  an  underlying  mechanism  to  provide  for 
describing  its  textual  attributes.  The  interaction  between  the  editors  must  be  defined  so 
that  objects  which  are  defined  graphically  cannot  be  modified  by  the  syntax  directed  edi¬ 
tor.  This  requires  that  the  u,*>er  have  limitied  access  to  the  textual  representation  of  a  pro¬ 
totype  within  tl»e  syntax  directed  editor. 


C.  IMPLEMENTATION 

The  user  interface  was  implemented  in  the  C  programming  language  [25].  This 
language  was  cho.sen  due  to  tiie  ease  with  which  it  interfaces  with  the  unix  shell.  The  use 
of  the  C  programming  language  gave  us  the  power  and  stnicture  of  a  high  level  language 
and  still  provides  very  easy  access  to  shell  commands  from  within  the  program  to 
manage  the  various  CAPS  tools. 

The  simplicity  of  our  menu  design  enables  a  user  to  traverse  the  system  with  an  ease 
comparable  to  that  provided  by  graphic  interfaces.  If  an  invalid  selection  is  entered  by 
the  user,  an  error  message  is  displayed,  and  the  user  may  enter  another  selection.  An 
sample  of  the  menu  design  is  provided  with  the  main  menu  in  Figure  4-4. 
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COHPUTER  AIDED  PROTOTyPIHG  SYSTEM 
(c)onatruct 

(•}XttCUt« 

(m)  odlfy 
(q)  uib 

Seltcb  Option: 

Figure  4*4.  CAPS  Main  Menu 

Each  valid  selection  from  a  menu  clean  the  screen,  then  either  places  the  user  in  a 
submenu  if  further  choices  are  available  or  {daces  the  user  within  the  environment  of  a 
particular  tool.  This  occun  by  creating  a  new  urtix  |>rocess  which  executes  the  desired 
tool  as  a  concurrent  i>rocess  with  the  user  interface  or  any  other  currently  active  tools. 
The  implementation  of  the  user  interface  is  contained  in  Appendix  B. 
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V.  THE  GRAPHIC  EDITOR 


A.  PREVIOUS  DESIGN 

The  graphic  editor  [10]  was  designed  to  suppon  efficient  constroction  and 
modification  of  the  graphical  representation  of  PSDL  prototypes.  The  gn^ic  editor 
assumes  that  it  is  running  on  a  Sun  Workstation  with  a  three  button  mouse.  It  uses  both 
keyboard  and  mouse  inputs.  The  control  options  of  the  graphic  editor  include  load  exist- 
ing  prototype,  store  current  prototype,  and  quit  the  gn^ic  editor. 

Graphic  representations  of  PSDL  prototypes  can  be  created  by  selecting  the  follow¬ 
ing  editing  modes: 

-  draw  operator 

-  draw  input 

-  draw  output 

-  draw  data  stream 

-  draw  self  loop 

The  graphic  symbols  which  represent  the  corresponding  language  constructs  are  created 
by  the  following  process: 

1.  Position  the  mouse  locator  at  the  desired  position  in  the  drawing  ^ace. 

2.  Press  the  left  mouse  button  down. 

3.  While  holding  the  left  mouse  button  down,  move  the  mouse 
to  a  position  which  defines  the  sire  or  length  of  the  object. 

Tliis  rubber  bands  the  type  of  object  chosen  in  the  editing  mode. 

4.  Release  the  left  mouse  button  when  the  desired  length  or  location 
is  obtained. 
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lltc  keyboard  and  the  text  input  mode  are  used  to  define  identifier  names  aixl  maximum 
execution  times  (MET).  All  operators,  inputs,  outpitr«  ^la  streams  and  self  loops  must 
have  identifier  names  specified.  Additionally  all  operators  must  additionally  have  METs 
specified.  Objects  are  deleted  by  positioning  the  mouse  on  an  object  and  pressing  the 
right  mouse  button.  Enor  messages  are  overlaid  in  the  drawing  space. 

The  layout  of  the  previous  graphic  editor  is  shown  in  Figure  S-l. 


■»  9  tit***- 

DRAW  DATA  STHeAH 

DRAW  SELF  LOOT  DRAWtHfUT  DRAW  OUTTUT 

IScmUSc*  Hmm  : 

rWHTTBlin 

Mm  EmcTot<  : 

•  systea  control  group  |  tdltlng  aodt  group  ♦  ttxt  Input  group 


Figure  S-l.  Previous  Graphic  Editor 
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All  grnphic  reprcMniations  of  <tesigns  ve  lo  be  stored  and  managed  by  the  design 
database.  Thorstcnson  [10]  states  that; 

"If  the  graphical  editor  i.s  going  to  be  used  to  edit  an  existing  diagram, 
tire  user  interface  function  must  retrieve  the  necessary  reconstruction  in> 
formation  from  tire  design  datid)ase  and  store  the  information  in  a  file 
nanred  graph.pic  prior  to  invoking  the  editor.  The  graphical  editor  then 
reads  in  this  information  and  reconstructs  the  diagram." 

Tire  graphic  editor  only  allows  objects  to  be  related  to  other  objects  as  defirred  by 
PSDL.  Operators  are  represented  by  bubbles.  Bubbles  may  not  overlap.  Data  streams 
are  represented  by  arrows  wtrere  both  the  tail  and  head  uf  the  arrows  are  coiurected  to 
operators.  Inputs  are  represented  by  arrows  whose  tails  must  be  posiliorred  in  unoccu¬ 
pied  drawing  space  and  heads  must  be  connected  to  an  operator.  Outputs  ate  represented 
by  snows  whose  tails  are  conrrected  to  an  operator  and  heads  are  positioned  in  unoccu¬ 
pied  drawing  space.  Self  loops  which  represent  state  variables  appear  as  arrows  whose 
tails  and  heads  are  both  conrrected  to  the  same  operator.  PSDL  operator  decomposition 
also  requires  that  all  of  tire  components  of  an  operator  ate  nanred.  The  graphic  editor 
will  not  permit  an  object  to  be  entered  into  the  drawing  space  until  after  the  identifier 
name  has  been  entered  and  validated  in  the  text  input  mode.  PSDL  operators  also  have  a 
MET  associated  with  them  which  must  also  be  specified  before  they  may  be  drawn  in  the 
drawing  space.  The  identifiers  must  be  syntactically  correct  Ada  identifiers.  The  form  of 
a  syntactically  correct  identifier  i.s  shown  in  Figure  5-2. 
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id«nti£ier  letter  ( (und«rXin«]  X«tt«rjor_di9it) 

X«tt«c  upp«c_c«a«_X«tt«r  |  Xow«r_^cas«_X«tt«c 

X«tt«r__orjd!lgit  X«tt«r  |  digit 

Figure  S’2.  PSDL  Identifier 


The  fonn  of  «  syniacticelly  correct  MET  is  shown  in  Figure  5-3.  User  if^t  which 
fails  to  meet  the  syntax  requirements  of  PSDL  is  ignored,  such  as  an  input  without  an 
associated  operator,  or  an  output  without  an  associated  opeiator. 


MET  cligit^ateing  (time^unit) 

digit_string  digit  |  digit_atring 

tiiM_unit  I  'm'  |  \  ’mu* 

Figure  5-3.  PSDL  MET 


Previous  documentation  did  not  describe  any  direct  interface  between  the  gr^)hk! 
editor  and  the  syntax  directed  editor,  nor  did  it  describe  the  decomposition  of  a  procotyp>$ 
design  from  within  die  gri^c  editor. 


B.  PREVIOUS  IMPLEMENTATION 

The  implementation  of  the  gnpliic  editor  utilizes  the  suntools,  sunwindows,  pixrect 
and  math  libraries  on  a  sun  3  system.  The  implementation  of  the  gn^c  editor  consists 
of  programs  written  in  C,  Pascal  and  UNIX  C  Shell. 
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C.  INTEGRATION 


'I'lic  inicgratioii  of  (he  graphic  editor  into  CAPS  required  that  the  component  parts 
which  comprise  tlte  graphic  editor  oik!  the  data  conq)onents  produced  by  the  graphic  edi¬ 
tor  be  identified  and  relocated  into  our  system  configuration.  The  dependencies  between 
the  graphic  editor  components  and  the  data  components  were  also  identified.  The  user 
interface  was  modified  to  activate  the  graphic  editor  when  the  designer  selected  it  from 
within  the  construction  menu. 

The  components  which  comprise  the  graphic  editor  reside  in  the  directory: 


/caps/graphic_editor. 

These  components  are: 

editor.icon 

-  icon  for  graphic_cditor  window 

gc 

-  C  sliell  script  program 

graph 

-  executable  window  based  graphic  editor 

graph.c 

-  C  source  code  for  graph 

maicid 

-  executable  utility  to  compile  grai^.c 

makid.c 

-  C  source  code  for  makid 

nodes 

-  graphic  design  link  analyzer 

nodes.p 

-  Pascal  source  code  for  nodes 

The  products  of  the  graphic  editor  which  represent  views  of  a  prototype  are  placed  in  the 
directory:  /caps/prototypes. 

The  graphic  editor  is  selected  by  the  user  interface  (/caps/caps).  The  user  interface  calls 
the  graphic  editor  by  creating  a  new  process,  which  is  a  copy  of  the  current  process,  and 
then  overlaying  the  new  process  with  the  script  program,  ge.  This  code  segment  is 
shown  in  Figure  5-4. 
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i£  (£ork(>  —  0)  ( 

code  execl  (SKEtili,  SHELL,  *-£**,  CMEMXC^tOZTOR,  0) 
exit (code) 

) 


SHELL  reprceenta  /bln/cah 

GRAFHXC__EOXTOR  repreaenta  /n/auna2/work/cap8/gcaphic^editOj^/$« 
Figure  5*4.  Code  Segment 


ge  is  dependent  upon: 

/ci^/gri^hic.editor/gnph 

/caps/graphic_editor^odes 

ge  creates  the  following  file: 

/cips^prototypes^Mdl.imp 
gnph.c  is  con^iled  by  '*makid  gnph.c** 

which  is  equivalent  to  "cc  graph.c  -o  $t»fh  'Im  -Isuntool  -Isunwiiidow  •Iporect" 

graph  is  dependent  upon: 

^tor.icon 

graph  creates  the  following  files: 

/ci^^’fototypes/gri^.links 

/caps^ototypes/graph.pic 

nodes.p  is  compiled  by  ”pc  nodes.p  ~q  nodes'* 

nodes  is  dependent  upon: 

/ciq>s^)rototypes/griq)h.iinks 

nodes  creates  the  following  files: 

/caps4>rototypes4)sdl.d8 

/caps^rototypes^ewNode.XX’s 
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D.  INTEGRATION  TESTING 


The  following  inconsistencies,  missiing  features  or  in^K>fianf  enhancemeiW  were 
identified  during  the  testing  of  the  graphic  editor. 

1)  The  frame  title  in  tire  previous  documentation  was  staled  u  GrapMcal  EdUor.  The 
frame  title  in  the  implcnKntatton  was  dataflow  diagram  cdHor. 

2)  TlKte  was  no  facility  to  print  a  hardcopy  of  a  prototype  design.  The  ability  to  print  a 
hardcopy  of  the  graphic  representation  of  a  prototype  was  also  determined  to  t)e  an 
important  enhancement  for  docunKntation  purposes.  The  use  at>d  capabilities  of  the 
graphic  editor  could  be  described  b.  written  documentation  much  more  clearly  with  the 
ability  to  show  the  format  of  the  graphic  editor. 

3)  The  graphic  editor  utilized  only  a  ponion  of  the  monitor.  The  default  window  size  of 
lire  grapitic  editor  was  proportional  to  tire  nronitor  aird  used  idxrut  75  percent  of  the  avail* 
able  screen  space. 

4)  A  segmentation  violation  occurred  intermittently.  On  a  UNIX  system  a  segmentation 
violation  indicates  that  a  pointer  has  an  assigned  address  outside  'A  the  user’s  data  q>ace. 

5)  Whenever  an  input,  output  or  data-flow  was  erased  from  the  drawing  space,  the  last 
pixel  on  the  tail  of  an  input,  output  or  data-flow  remairKd  visible. 

6)  The  functions  of  the  mouse  buttons  were  not  visibly  described  within  the  screen 
image  of  the  graphic  editor. 

7)  The  graphic  editor  warning  and  error  messages  were  displayed  in  the  drawbg  space, 
permitting  the  possibility  of  overlaying  the  graph. 
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8)  The  graphic  ediior  has  separate  store  and  quit  buttons  yet  the  user  wu  not  permined 
to  exit  the  graphic  editor  via  the  quit  button  uiUess  the  design  hatl  been  storad  first. 

9}  The  operator  data  components  produced  by  the  link  statement  analyzer  wete  not  com¬ 
plete  specification  constructs. 

10)  The  command  line  help  facility  wu  not  effective  once  the  graphic  editor  was 
integrated  into  the  environment. 

11)  The  delete  operation  was  unpredictaUe.  This  feature  was  not  completely  imple- 
mented  in  the  previous  implementation. 

12)  IiqMis,  Outputs  and  Data-flows  were  not  clipped.  These  symbols  are  drawn  exactly 
as  specified  by  the  mouse  inputs  and  not  adjusted  to  the  edges  of  the  operaton.  The 
impact  of  this  is  that  the  construction  of  a  nice  looking  prototype  can  become  tedaous. 
This  problem  becomes  worse  on  workstations  widi  smaller  monitors. 

13)  The  graphic  editor  requites  that  the  designer  selects  the  tail  position  of  an  input,  out¬ 
put,  or  data-flow  before  the  designer  selects  the  head  position  of  the  input,  output,  or 
data-flow.  If  the  designer  seleas  the  end  points  of  an  input,  ouqwt  or  data-flow  in  the 
head  then  tail  order,  the  input,  output  or  data-flow  sinq)ly  disappears  without  any  expla¬ 
nation  as  to  why  the  object  was  ignored.  This  is  a  cumbersome  aiKl  unnecessary  con¬ 
straint  on  the  user. 

14)  The  objects  in  the  graphic  editor  cannot  be  resized. 

15)  The  objects  in  the  griqthic  editor  caruiot  be  moved  once  positioned. 


16)  Data  flows  cannot  be  inverted. 


17)  'Ilw  keyboard  inputs  for  lire  identifier  nwnes  and  maximum  execution  time*  aie 
translated  to  literal  text  characters.  Backspaces  used  while  entering  these  field*  ^>pear  to 
behave  nomially  but  show  up  as  control  characters  in  the  output  file*. 

18)  Tire  naiiycs  of  objects  m  tire  graph  ate  not  required  to  be  unique. 

19)  Names  and  time  constraints  may  not  be  modified  once  their  associated  object  i* 
placed  in  the  drawing  space. 

20)  Units  for  time  constraints  in  the  PSDL  language  definition  have  a  default  value  of 
milliseconds.  The  graphic  editor  does  not  recognize  this  feature  of  the  language. 

21)  The  previous  design  assumed  that  only  one  single  graphic  view  of  a  prototype  would 
exist  when  the  toad  existing  button  was  activated. 

22)  The  mechanism  for  prototype  decomposition  was  not  described  in  the  previous 
design. 

23)  A  complete  prototype  description  cannot  be  entered  within  the  gr^)hic  editor. 


E.  MODIFICATIONS  TO  THE  DESIGN  AND  THE  IMPLEMENTATION 

The  first  ten  items  have  been  corrected  in  the  design  and  the  implementation.  The 
eleventh  item  was  partially  corrected,  the  remaining  items  have  been  corrected  in  design 

Oik-/  • 

1)  We  changed  the  frame  title  of  the  graphic_editf  from  dataflow  diagram  editor  in  the 
implementation  to  CAPS  -  GRAPHIC  EDI  in  both  the  design  and  the 
implementation. 
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2)  We  mkied  a  print  screen  option  to  the  grt^ic  editor.  This  was  implemented  by  creat¬ 
ing  a  new  control  option  button  in  the  system  control  group  panel  of  the  graphic  editor 
for  print  design.  The  print  design  selection  causes  a  screen  dun^  to  a  file,  which  is  then 
sent  to  a  printer.  This  option  performed  well  when  the  gn^phic  user  was  displayed  on  a 
window  device  which  was  physically  conrtected  to  a  Sun  server.  The  file  did  not  survive 
transfer  across  the  network,  when  the  physical  window  device  was  connected  to  a  didc- 
less  workstation,  due  to  the  size  of  the  transfer  file.  Since  the  functionality  of  the  print 
design  bunon  is  inoperative  on  diskless  workstations,  a  fiulher  modification  was  made  to 
determine  the  physical  device  that  the  user  is  on  before  displaying  the  print  design  but¬ 
ton.  If  the  user  is  physically  located  on  a  diskless  workstation  then  the  button  is  not  pro¬ 
vided. 

3)  We  resized  the  default  size  of  the  grapldc  editor  to  better  utilize  the  monitor  display. 
The  graphic  editor  now  utilizes  100  percent  of  the  screen  space. 

4)  We  initialized  dynamic  memory  to  NULL  in  graph.c  to  correct  the  segmentation  vio¬ 
lation.  This  required  systematic  debugging  to  locate  the  source  of  the  problent.  The 
location  of  the  segmentation  violation  was  in  nodes.p.  However,  we  traced  it  to  graph.c 
where  memory  was  dynamically  allocated  but  not  initialized. 

5)  The  tail  pixel  on  inputs,  outputs  and  dala-fiows  was  not  erased  when  the  rest  of  the 
graphic  symbol  was  erased.  This  occurred  when  inverting  the  pixels  on  the  display  from 
the  last  mouse  position  to  the  current  mouse  position  for  pixels  between  the  tail  and  the 
head  of  the  graphic  symbol.  This  was  accomplished  with  a  built  in  sunview  function.  To 
correct  this  problem  the  drawing  space  is  redrawn  when  a  symbol  is  erased.  SitKe  the 
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tail  p*;«cl  Is  deleted  from  metiwiy  wlicn  a  symbol  is  erased,  redrawing  causes  the  tail 
pixel  to  tlisappcar. 

6)  A  mouse  interface  panel  was  created.  Tliis  panel  explicitly  denotes  the  functions  of 
the  left,  middle  and  right  mouse  buttons,  llie  mouse  interface  panel  resides  as  the  top 
panel  of  the  graphic  editor  since  the  designer  must  know  how  to  interface  with  the  editor 
before  he  can  make  use  of  the  tool.  Hiis  reduces  the  size  of  the  drawing  space  some¬ 
what,  but  contributes  to  the  usefulness  of  tite  graphic  editor  significantly.  In  considera¬ 
tion  for  maintaining  maximum  area  for  the  drawing  space  the  editing  mode  panel  was 
reduced  in  size  to  eliminate  unnecessary  wasted  space.  During  the  design  of  the  mouse 
interface  panel  we  also  realized  that  the  labels  and  buttons  of  the  previous  design  were 
not  consistent.  We  corrected  this  as  well.  A  later  modification  might  be  to  enable  the 
expert  u.ser  to  delete  this  panel  in  favor  of  a  larger  drawing  space. 

7)  A  message  panel  for  editor  error  messages  and  warnings  was  designed  into  the 
graphic  editor  to  avoid  the  possibility  of  overlaying  the  design  with  graphic  editor  mes¬ 
sages.  This  panel  resides  imntediately  above  the  drawing  space. 

8)  The  capability  to  quit  without  saving  a  current  session  with  the  graphic  editor  was 
implemented.  Previously  the  designer  could  not  quit  the  graphic  editor  without  storing 
the  design,  although  two  independent  buttons  are  used  for  these  functions.  The  previous 
implementation  would  display  a  warning  message  that  the  graph  had  not  been  saved,  and 
would  then  ignore  the  request  to  quit.  The  designer  could  quit  without  storing  by  using 
the  pull  down  menu  of  the  graphic  editor  frame.  This  design  feature  essentially 
encouraged  the  designer  to  circumvent  the  tool.  Since  it  is  easily  recognized  that  the 
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designer  miglit  like  to  quit  without  storing  his  current  work,  this  option  wu  integrated 
into  the  graphic  editor.  This  was  acconiplisited  by  using  the  sunview  confiim  feature 
when  tire  quit  button  is  selected  aixl  the  graph  has  not  been  saved.  If  the  designer  selects 
quit  without  having  saved  the  graph,  then  a  warning  message  is  displayed  artd  a  pop-up 
confinnation  sequence  occurs.  If  the  designer  does  want  to  save  the  gri^  before  quit¬ 
ting,  then  ire  may  click  the  right  mouse  to  cancel  the  quit  request.  If  he  did  intend  to  quit 
without  saving  then  he  may  click  the  left  mouse  to  conhtm  his  request. 

9)  The  operator  data  components  produced  by  the  link  statement  analyzer  were  corrected 
to  append  the  PSDL  keyword  END  to  the  NewNode  product.  In  the  PSDL  grammar  all 
SPECIFICATION  keywords  are  bracketed  with  the  keyword  END. 

10)  The  previous  design  and  implementation  included  a  command  line  help  facility. 
Since  the  graphic  editor  is  an  integrated  tool  within  the  CAPS  envirorrment,  and  is 
invoked  from  within  the  user  interface  and  not  from  the  command  line,  this  facility  was 
deleted. 

11)  The  delete  function  was  evaluated  and  partially  corrected.  The  first  bug  identified 
was  the  incorrect  use  of  the  C  free  function  for  dynamic  memory.  The  firee  function  was 
applied  to  memory  which  was  automatically  allocated  rather  than  dynamically  allocated. 
Kemighan  and  Ritchie  state  that  "it  is  a  ghastly  error  to  free  something  not  obtained  by 
calling  calloc  or  malloc"  [26].  This  was  corrected  by  eliminating  the  free  function  calls 
within  the  file  griq)h.c.  The  second  bug  related  to  the  inconsistent  behavior  of  the  delete 
function.  It  appeared  as  if  all  objects  which  are  represented  by  arrows  in  the  graphic  edi¬ 
tor  such  as  inputs,  outputs,  data-flows  and  self  loops  should  be  able  to  be  deleted  by 
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picssing  (he  right  mouse  button  on  (he  tail  or  (he  head  of  the  object.  But  when  the  right 
mouse  was  pressed  on  the  head  of  a  self  loop  tire  associated  operator  and  all  of  its  inputs, 
outputs,  data  flows  and  self  loops  were  deleted.  Investigation  revealed  that  when  the 
right  mouse  was  pressed,  if  the  mouse  was  located  on  an  input,  output,  data-flow  or  self 
loop  the  respective  line  would  be  deleted.  If  the  right  mouse  was  pressed  and  the  graphic 
editor  did  not  determine  that  the  mouse  was  positioned  on  an  aaow,  then  it  checked  to 
see  if  the  rigitt  mouse  was  wititin  an  operator.  When  tlie  right  mouse  was  pressed  on  the 
head  of  a  self  loop,  and  if  the  head  of  the  self  loop  was  located  within  an  operator,  tl»e 
graphic  editor  would  never  recognize  that  the  mouse  was  positioned  on  a  arrow  so  tire 
delete  operations  for  an  operator  would  be  activated.  The  implementation  for  drawing 
arrows  in  the  drawing  space  uses  variable  names  which  correspond  to  points  within  a 
Cartesian  coordinate  system.  Tire  algorithm  which  creates  the  data  stnicture  which 
represents  an  arrow  always  uses  (xl,yl)  as  tire  tail  and  (x2,y2)  as  tire  head.  The  algo- 
ritiun  for  checking  if  the  right  mouse  is  on  a  arrow,  only  checks  if  the  mouse  is  posi¬ 
tioned  on  the  head  or  the  tail  of  an  arrow.  When  a  self  loop  is  created  (xl,yl)  is  the  tdi, 
but  (x2,y2)  is  not  actually  the  head.  The  actual  Cartesian  coordinates  of  the  points  for  a 
self  loop  arc  shown  in  Figure  5-5. 


(*l.y2)  (x2,y2) 


(xl.yl)  (x2.yl) 

Figure  5-5.  Self  Loop  Locations 
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The  head  of  a  self  loop  is  actually  the  point  (x2,yl).  The  values  itored  as  the  head  of  a 
self  loop  in  the  current  implementation  are  (x2,y2).  Cuntntly  a  self  loop  may  be  deleted 
by  selecting  (xl.yl)  or  (x2,y2)  with  the  middle  mouse  button.  This  causes  the  incon' 
sistencies  noted  during  testing.  Since  the  algorithm  does  not  recognize  (x2,yl)  as  the 
head  of  an  aiTow»  if  the  arrow  intersects  an  operator,  then  the  operator  and  all  related 
objects  are  deleted  (including  the  self  loop).  We  decided  that  limiting  the  recognition  of 
an  arrow  to  the  end  points  was  a  poor  design  decision.  Rather  than  correct  the  knjde- 
mentation  to  store  (x2,yl)  as  the  head  of  the  self  loop,  we  chose  to  temporarily  resolve 
this  problem  by  redefining  the  mouse  interface  panel  to  state  explicitly  that  deletion  of 
self  loops  is  performed  only  when  the  mouse  is  positioned  on  the  tail  of  a  self  loop.  The 
correct  way  to  fix  this  problem  is  universal  to  all  objects  represented  by  arrows.  The 
gra{Mc  editor  should  be  able  to  recognize  all  points  along  a  line.  When  any  object  in 
the  drawing  space  is  selected  for  deletion,  the  object  should  be  highlighted  in  some 
manner.  A  verification  mechanism  should  also  be  utilized  to  avoid  inadvertent  deletions. 
A  pop-up  window  which  requires  that  the  designer  verify  the  deletion  should  used  when¬ 
ever  a  delete  operation  is  requested. 

12)  The  input,  output  artd  data-flow  symbols  need  to  be  clipped.  The  type  of  symbol  is 
specified,  before  the  location  or  end  points  of  the  symbols  are  specified.  The  syntactic 
correctness  is  checked  using  the  symbol's  related  operaton.  The  location  of  the  opera¬ 
tors  is  known  to  the  griqrhic  editor.  The  gri^ic  editor  should  adjust  the  head  of  the  iiqxit 
and  data-flow  symbols  to  the  borders  of  their  respective  operaton.  The  tails  of  the  output 
and  data-flow  symbols  should  be  adjusted  to  the  bordere  of  their  respective  operaton. 
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TI)is  will  greatly  reduce  lire  precision  required  of  tire  designer  to  create  a  gnqthic 
representation  of  the  prototype  with  a  treat  appearance, 

13)  Tire  tail  then  head  constraint  on  the  selection  of  input  and  output  mouse  selections 
should  be  removed.  Since  a  draw  input  or  draw  output  has  been  selected  before  the  user 
specifies  the  end  points,  tire  grapiiic  editor  should  be  able  to  detennine  the  appropriate 
head  and  tail  position,  and  should  pennit  the  designer  to  selea  the  end  points  in  either 
order. 

14)  The  additional  capability  to  resize  objects  should  be  implenrented.  Currently  the 
designer  must  delete  then  redraw  an  object  which  he  would  like  to  resize.  The  current 
deletion  of  operators  removes  all  related  textual  information  and  adjacent  arrows,  which 
fxirther  compounds  this  problem.  Without  a  resizing  capability,  the  designers  might 
eventually  learn  to  always  draw  their  designs  on  a  small  scale  to  ensure  that  they  do  not 
run  out  of  drawing  space.  This  type  of  compensation  would  encourage  poor  utilization  of 
the  drawing  space  ami  the  tool.  A  resizing  capability  will  enhance  the  friendliness  and 
usefulness  of  the  graphic  editor  significantly.  The  resizing  of  objects  may  be  imple¬ 
mented  by  allowing  the  designer  to  select  the  border  of  an  object  by  pressing  down  on 
the  left  mouse  button,  dragging  the  mouse  while  the  object  rubber  bands,  and  when  the 
object  obtains  the  desired  size,  releasing  the  left  mouse  button  to  effect  the  change  in  size 
of  the  object. 

15)  The  implementation  of  the  additional  capability  to  relocate  objects  in  the  drawing 
space  is  required.  The  lack  of  the  ability  to  relocate  objects  will  have  the  same  rregative 
impact  on  a  designer  as  the  inability  to  resize  objects.  The  designer  may  learn  to  over 
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compemaie  thus  reducing  tt)e  effectiveness  of  the  graphic  editor.  The  relocation  of 
objects  may  be  intplemented  with  the  following  process.  The  designer  should  select  the 
border  of  an  object  to  relocate  by  pressing  down  on  the  left  mouse  button.  Then  he 
should  drag  the  mouse  to  nK)ve  the  object.  When  the  object  has  the  new  desired  location 
the  designer  may  release  the  left  mouse  button  to  eflect  the  change, 

16)  The  ability  to  invert  data-flows  would  be  a  nice  enhancement.  This  should  be  im(^> 
mented  by  copying  the  existing  end  points,  rewriting  them  in  reverse  order  into  the  per- 
maneni  data  structure,  and  then  redrawing  the  disf^ay. 

17)  The  correct  translation  of  keyboard  back  space  ii^t  is  esseiuial  since  the  output  of 
the  gri4)hic  editor  is  used  as  ir^t  for  other  toob  in  the  environment.  The  file  nodes.p 
must  be  modified  to  check  for  the  back  ^>ace  control  character,  and  then  adjust  the  char¬ 
acters  in  the  text  buffer  appropriately. 

18)  The  implementation  of  name  analysb  b  an  essential  feature.  A  data  stnicture  should 
be  created  which  contains  the  names  assigned  to  data  flows  and  operators.  Before  new 
names  are  accepted  by  the  gri^c  editor,  the  names  should  be  coti^>ated  with  existing 
names.  The  gri^ic  editor  should  analyze  the  object  being  named  and  ensure  that 
conflicts  or  multiple  declarations  are  not  defined.  If  the  new  name  violates  these  condi¬ 
tions,  then  a  message  should  be  displayed  in  the  message  panel  and  the  designer  should 
redefine  the  name. 

19)  The  modification  of  names  and  time  constraints  independently  of  their  associated 
operators  requires  that  the  graphic  editor  recognize  the  boundary  of  the  names  and  time 
constraints  associated  with  an  operator  when  selected  with  the  mouse.  Functions  should 
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be  provided  in  lite  file  graph.c  which  conirol  the  modification  of  these  objects  whenever 
titey  arc  selected. 

20)  Currently  a  time  constraint  is  required  by  the  graphic  editor  for  all  operators.  This 
lequircnKiU  should  be  removed.  If  tlie  designer  does  not  enter  a  time  constraint  then  a 
default  value  of  zero  should  be  assigned.  Currently,  units  are  required  for  all  time  con¬ 
straints.  Since  tire  PSDL  language  uses  milliseconds  as  a  default  value,  the  function 
within  the  graphic  editor  which  enforces  tire  entry  of  units,  should  be  modified  to  allow 
tire  designer  to  onrit  this  infoniratlon.  If  tire  desigirer  does  not  explicitly  enter  the  units  of 
tinre  tlren  tire  default  value  should  be  assigned. 

21)  The  previous  design  decision  to  have  the  user  interface  retrieve  the  necessary  recon¬ 
struction  information  from  the  design  database  arrd  store  the  information  into  a  file  called 
graph.pic,  and  to  tlren  have  the  designer  select  load  existing  after  the  graphic  editor 
beconres  available,  separates  the  retrieval  function  into  two  different  interfaces.  This 
function  should  be  entirely  controlled  by  either  the  user  interface  or  the  graphic  editor. 
Our  design  modification  is  to  place  this  function  entirely  within  the  graphic  editor.  This 
should  occur  with  the  following  sequence  of  operations. 

a.  The  designer  selects  the  load  existing  button. 

b.  A  pop-up  listing  is  displayed  in  the  drawing  area  which  contaiirs  the  names  of  the 
existing  designs.  These  designs  should  be  ordered  such  that  the  most  recently  developed 
designs  occur  in  the  listing  before  the  other  designs.  This  ordering  assumes  that  designs 
to  be  modified  ore  more  likely  to  be  designs  which  were  incompletely  reconstructed  or 
pertain  to  the  most  recent  development  project. 
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c.  The  designer  should  select  a  design  by  typing  the  name  with  the  keyboard  into  a  small 
window  space  or  by  pointing  at  a  name  with  the  mouse  and  pressing  a  mouse  button  to 
make  the  selection. 

d.  The  graphic  editor  makes  a  copy  of  the  design  file  with  a  suffix  reserved  for  backup 
files. 

e.  The  design  is  loaded  into  the  graphic  editor. 

f.  If  the  designer  selects  store  with  this  design,  then  he  is  queried  as  to  his  desires  for  the 
backup  copy.  He  should  be  able  to  reruune  or  remove  the  old  copy.  Eventually  the 
design  database  should  perform  version  control  aiKl  manage  all  of  the  versions  of  a 
prototype. 

g.  If  the  designer  selects  quit  without  having  stored  the  current  version  of  the  design, 
then  the  edited  version  is  removed  and  the  name  of  the  backup  copy  is  restored  to  its  ori¬ 
ginal  name. 

Consistency  of  design  indicates  that  the  gnqphic  editor  should  control  the  naming  of  all 
graphic  designs.  Naming  should  occur  when  the  store  button  is  selected.  Until  the 
design  database  is  implemented,  the  directory  /caps^rototypes/  should  be  used  to  contain 
the  prototype  designs. 

22)  The  decomposition  process  of  a  PSDL  prototype  design  was  not  previously 
described.  The  existing  data  structures  currently  used  in  the  grqihic  editor  should  be 
modified  to  add  another  dimension.  This  dimension  would  generate  a  linked  list  of 
operators  to  their  decompositions.  Three  new  buttons  search,  decompose  and  compose 
should  be  added  to  the  system  control  group  panel.  The  search  button  interacts  with  the 
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Database  Mmtageitieiu  System.  Tlte  impIenKniation  of  this  function  should  provide  the 
user  witit  the  capability  to  retrieve  both  prototype  designs  and  reusable  software  com¬ 
ponents.  Tliis  button  has  been  added  to  tlie  grapltic  editor  layout  but  it,<t  fiiiKtionslity  has 
not  yet  lieen  intplemented.  The  details  of  these  operations  are  further  defined  in  a  later 
chapter.  When  the  decompose  button  is  activated,  tiie  user  selects  an  operator  in  the 
current  design,  a  link  from  the  operator  in  the  current  data  structure  is  created,  and  the 
drawing  space  is  cleared.  Tlie  user  nuty  now  construct  the  decontposition  of  the  selected 
operator.  Infonnation  related  to  an  operator  must  be  consistent  with  the  decomposition  of 
that  operator.  For  example,  if  an  operator  has  a  defined  input,  then  when  the  operator  is 
decomposed  Uiat  same  input  must  appear  as  an  EXTERNAL  input  in  the  decomposition 
of  tlie  operator.  If  the  designer  has  defined  adjacent  inputs,  outputs,  data  streams,  time 
constraints  or  any  other  related  information  prior  to  selecting  an  operator  for  decomposi¬ 
tion,  this  infomiation  should  be  visible  to  the  designer  when  constructing  the  decomposi¬ 
tion.  The  graphic  editor  must  ensure  that  the  information  related  to  an  operator  is 
consistent  in  both  the  decomposition  and  composition  of  the  operator.  When  the  com¬ 
pose  button  is  activated  the  drawing  space  is  cleared  and  the  design  which  contains  the 
parent  operator  is  displayed.  Tlie  decompose  and  the  compose  buttons  have  been  added 
to  the  graphic  editor,  but  their  functionalities  have  not  yet  been  implemented. 

23)  We  believe  that  a  user  should  be  able  to  describe  a  PSDL  design  completely  from 
within  the  graphic  editor.  Better  utilization  of  sunview  capabilities  within  the  graphic 
editor  and  enhancements  to  the  current  data  structures  used  within  the  graphic  editor  sup¬ 
port  this  modification.  The  use  of  pop-up  menus  and  the  use  of  multiple  windows  can 
provide  an  interface  which  avoids  clutter  and  infomiation  overload.  The  current  set  of 
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graphic  symbols  remains  sufficient.  Optional  PSDL  constructs  which  relate  to  an  opera^ 
tor  aiui  are  not  currently  supported  by  the  graphic  editor  can  be  displayed  within  a  pop' 
up  menu.  Selections  made  within  a  pop-up  menu  can  generate  dialogue  boxes  where  the 
user  describes  the  optional  constructs.  The  dialogue  boxes  should  be  customixed  to  sup¬ 
port  effectively  each  optional  construct.  A  few  examples  of  these  constructs  iiKlude  con¬ 
trol  constraints,  informal  descriptions,  and  formal  descriptions.  Mechanisms  used  within 
these  dialogue  boxes  can  be  question  and  answer,  mini  syntax  directed  editors,  or  sin^e 
text  editors.  This  information  represents  an  annotation  view  [27]  of  the  operator.  It  will 
not  be  visually  persistent  but  will  be  attached  to  the  operator.  The  existing  data  struc¬ 
tures  can  be  expanded  to  manage  these  constructs. 

The  layout  of  the  graphic  editor  as  it  is  currently  implemented,  with  a  sitTq>le  proto¬ 
type  design,  is  shown  in  Figure  5-6.  The  functional  components  which  comprise  the 
graphic  editor  are  contained  in  Appendices  C  through  F. 
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VI.  THE  SYNTAX  DIRECTED  EDITOR 


Languige-based  editors  or  syntauc  directed  editon  are  editors  which  ate  tailoctd  to  a 
specific  language.  These  editors  use  ths  grammar,  stnictuie  and  static  semantics  of  a 
language  to  assist  a  user  in  writing  correct  programs.  These  editors  generally  enforce 
syntactically  correct  programs  by  providing  program  segment  lemplales  which  contain 
legal  alternatives  for  the  specific  language  and  prohibit  illegal  constructs.  They  may  also 
combine  plain  text  editing  with  incremental  paning  techniques  to  ensure  that  only  syn¬ 
tactically  correct  program  fragntents  are  entered. 

A.  LANGUAGE-BASED  EDITOR  GENERATORS 

Porter  (1 1]  performed  a  comparison  of  two  predominant  editor  generators  currently 
in  use  for  developing  language  based  editors.  These  tools  were  the  Cornell  Synthesixer 
Generator  aixl  the  OANDALF  ALOE  Generator.  Porter  stated  that  the  Cornell  Syn^ 
thesizer  Generator  [28,29]  was  the  more  appropriate  tool  for  our  purpoaes.  The  Gandalf 
tool  provides  an  environment  which  permits  team  development  of  system,  software.  It 
exceeds  the  scope  of  the  Cornell  Synthesizer  Generator  by  providing  both  programming 
arxi  system  development  enviroiunents.  The  desired  PSDL  editor  is  designed  u  a  tool 
within  the  CAPS  environment.  CAPS  provides  its  own  system  development  capabilities. 
The  development  of  a  PSDL  editor  using  the  GANDALF  tool  would  underutilize  the 
GANDALF  tool. 
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Poncr  cstablislwd  the  feasibility  and  recommended  the  uie  of  dte  Ccmell  Syn¬ 
thesizer  Generator  for  the  devclopn*ent  of  a  PSDL  editor  for  CAPS,  We  decided  to  fol¬ 
low  Porter’s  recontmendation  and  did  not  conduct  any  futiher  evaluation  of  editor 
generators. 

B.  THE  CORNELL  SYNTHESIZER  GENERATOR 

The  Synthesizer  GeiKrator  creates  a  language-specific  editor  from  an  editor 
specification  which  describes  the  language.  The  editor  specification  defittes  the  absttact 
syntax,  context-sensitive  relatiotrships,  display  format,  concrete  input  syntax,  and 
trarrsfomiation  rules  for  the  editor.  These  specifications  are  written  by  the  editor-designer 
using  the  Synthesizer  Specification  Language  (SSL), 

The  Cornell  Synthesizer  Generator  is  written  in  C  and  mns  under  UNIX.  The  central 
components  of  an  editor  created  from  the  Cornell  Synthesizer  Generator  are  the  editing 
kernel  and  the  generator  proper. 

TIk  editing  kernel  consists  of  four  subcomponents  which  are  common  to  all  gen¬ 
erated  editors.  These  subcomponents  are  an  attribuied-tree  module,  the  SSL-expression 
interpreter,  the  editor  module,  and  the  display  module.  The  attributed-tiee  nuxlule  con¬ 
tains  a  set  of  operations  for  manipulating  attributed  trees.  An  example  is  the  incremental 
algorithm  for  updating  a  tree’s  attribute  values  after  it  has  been  modified.  The  SSL- 
expression  interpreter  is  invoked  by  tire  attributed-tree  module.  This  occurs  when  a  new 
value  of  an  attribute  ixutance  is  to  be  computed  and  when  a  transformatioit  has  been 
applied  to  an  attributed  tree.  The  editor  module  provides  the  capabilities  for 
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minipulaiing  objects  within  an  editor.  These  objects  are  contained  in  a  collection  of 
buffers.  The  editor  module  provides  the  system  commands  such  as  those  for  stnictural 
editing  and  texnial  editing.  The  display  module  provides  the  support  for  video-d^play 
teiminals,  bit-mi^iped  workstations  and  mice. 

The  generator  proper  generates  editors  from  editor  specifications.  It  consists  of  a 
shell  program  and  the  SSL  trartslator.  The  shell  program,  sgen,  coordinates  the  activities 
of  the  SSL  translator  with  the  UNIX  utilities,  such  as  lex,  yacc  and  cc,  which  are 
employed  during  the  process  of  creating  an  editor.  The  SSL  translator  processes  the  SSL 
source  which  represents  the  editor  specifications.  Four  unique  subcomponents  are  created 
for  any  generated  editor.  The  subconqwnents  are  the  editor’s  grammar  taUes,  scanner, 
parser,  and  sequences  of  byte-codes  which  are  the  internal  r^iresentation  of  SSL 
expressions. 

The  SSL  reserved  woi'ds  which  may  not  be  used  by  an  editor  designer  for  any  other 
purpose  are  shown  in  Figure  6-1. 
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Figure  6-1.  SSL  Reserved  Words 
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C.  PREVIOUS  DESIGN  AND  IMPLEMENTATION 


Poner  gcticrntcd  sonic  piulial  specifications  for  t  PSDL  editor,  but  the  specifications 
were  completely  untested.  After  reviewing  his  work,  we  were  unable  to  perform  any 
editing  with  those  specifications.  We  chose  to  define  our  own  i^iproach  to  development 
and  to  disregard  the  previous  implementation. 


D,  DEVELOPMENT  OF  THE  PSDL  EDITOR 

llie  modular  developiirent  of  an  editor  using  the  Cornell  Synthesirer  Generator  con¬ 
sists  of  editor  specifications  which  may  be  divided  into  six  major  components: 

-  abstract  syntax  declarations 

-  unparsing  declarations 

-  lexical  declarations 

-  concrete  input  syntax  declarations 

-  attribute  declarations  and  equations 

-  templates  and  transfomiations 

Modular  construction  pemiits  tlie  abstraction  of  the  requirements  of  each  con^XHient, 
enhances  con^rehensibiLity  and  incorporates  effective  extensibility  for  an  editor.  Good 
engineering  practice  was  also  employed  by  first  defining  a  small  subset  of  the  PSDL 
language  for  the  initial  editor,  while  familiarizing  ourselves  with  the  specifics  of  tire  pro¬ 
cess  for  generating  an  editor.  The  purpose  and  implementation  details  for  the  construc¬ 
tion  of  each  module  is  described  using  the  initial  subset  of  the  PSDL  grammar  shown  in 
Figure  6-2.  Some  of  the  PSDL  nonterminals  have  been  eliminated  or  are  treated  as  ter- 
muials  here  in  our  subset.  The  complete  PSDL  grammar  is  contained  in  Appendix  A. 
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-  "0..9" 


Figure  6-2.  Original  Subset  Of  FSDL  Grammar 


The  descriptions  of  the  SSL  nnxlules  embodies  lessons  learned  during  the  generation 


of  the  editor  that  may  be  q)plied  to  the  generation  of  any  editor.  We  decided  to  make  the 
initial  editor  for  use  on  a  video  terminal  rather  than  a  workstation  due  to  the  availability 


61 


of  local  resources.  The  final  version  of  the  editor  within  CAPS  is  expected  to  utilize 
graphics  with  a  mouse  on  a  Sun  Workstation. 

Before  writing  any  SSL  specifications  we  recommend  that  the  editor  designer  define 
an  intennediate  grammar.  Tliere  may  exist  several  conditions  in  the  BNF  dialect  of  the 
grammar  which,  if  implemented  literally,  will  probably  produce  an  editor  which  is 
cumbersome  to  the  user.  The  intermediate  grammar  will  not  change  the  meaning  of  the 
original  grammar  but  will  provide  a  more  natural  transition  between  the  BNF  grammar 
and  the  SSL  declarations. 

Nonteimiu’ds  that  cany  no  specific  semantic  meaning  should  be  eliminated.  These 
nontcnninals  may  exist  in  the  BNF  dialect  of  tiw  grammar  to  enliance  readability  and 
understondability.  When  used  in  the  abstract  syntax  they  produce  unnecessary  editing 
steps  and  depth  in  the  derivation  trees.  An  example  of  this  in  our  initial  PSDL  grammar 
is  tlic  protluction  for  component  which  resolves  to  a  datajype  or  an  operator.  We 
redefined  component  in  our  intennediate  granunar  to  be  a  "type  "  id  type_5pec  or  a 
"operator  "  id  operator  jpec. 

BNF  dialects  and  SSL  differ  in  tlie  way  that  optional  occurrences  of  nonterminals  are 
treated.  A  BNF  dialect  uses  a  mechanism  to  state  that  an  instance  of  a  nonterminal  is 
optional.  SSL  uses  a  property  declaration  for  the  nonterminal  to  state  that  it  is  optional. 
Thus  all  occurrences  of  that  nonterminal  are  optional.  We  recommend  that  the  editor 
designer  identify  nonterminals  in  the  BNF  dialect  of  the  grammar  which  have  both 
required  and  optional  occurrences.  A  convention  for  creating  new  nonterminals  in  the 
intermediate  grammar  to  differentiate  between  optional  and  required  instances  of  the 
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nonterminals  should  be  established.  The  new  optional  nonterminals  canty  the  same 
semantic  meanings  as  the  original  nonterminals.  We  created  new  nonterminals  for 
optional  irutaiKes  aixl  used  a  convention  of  ptefixtnf  optional^  to  the  name  of  the  new 
nonterminal  for  optional  occurrences.  An  exan^le  of  this  issue  occurs  in  our  original 
PSDL  subset  with  the  typt_decl  production.  We  created  a  new  iKNttermirul 
optionaljypc_d€cl  in  our  intermediate  granunar.  We  also  decided  to  maintain  an 
expressive  regularity  by  rerraming  all  nonterminals  which  only  had  optioctal  occurretKes 
in  the  original  grammar  with  the  same  opfional^  prefix. 

BNF  dialects  and  SSL  also  differ  in  the  way  that  optional  instances  of  sequences  of 
terminals  and  nonterminals  occur.  In  SSL  a  property  declaration  is  used  to  specify  that 
all  occurrences  of  a  nontermmal  are  lists,  or  optional  lists.  Lisu  in  SSL  are  treated  u 
binary  trees.  An  SSL  list  must  have  exactly  two  operators.  One  operator  is  a  miUary 
operator  constructing  an  enq)ty  list  and  the  other  is  a  right  recursive  binary  operator 
adding  a  new  list  element  to  a  given  list.  A  list  in  SSL  must  contain  at  least  one  element. 
A  production  list  3  listjtem  (Ustjtem)  would  be  reflected  as  a  list  in  SSL.  Optional  lists 
permit  an  instance  of  the  list  which  is  enq>ty.  A  production  such  u  list  »  {listjtem} 
would  be  reflected  as  an  optional  list  in  SSL.  We  lecommen''  that  the  editor  designer 
identify  whether  sets  in  the  origirud  grammar  are  lists  or  optional  lists.  We  renamed  the 
optional  list  nonterminals  with  the  prefix  optionalJist__.  In  our  original  grammar  inter¬ 
face  is  an  optional  list  and  was  renamed  to  optional JistJnterface  in  our  intermediate 
grammar.  In  our  original  grammar  idjist  is  an  list.  Our  intermediate  grammar  for  the 
PSDL  subset  is  shown  in  Figure  6-3. 
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padi 

"  li3t_component 
li3b__componenfe 

•*  "type"  id  hype__3poc  |  "operator"  id  operator^apec 
typ«__3pec 

••  "apecification"  optional__type__decl  "end" 
operator^apec 

'»  "apscification"  optionaI_^liat_inter£ace  "end" 
opf  >onal_liat__inter£ace 

••  attribute  optional_reqmt3_trace 
attribute 

input  I  output 

input 

■  "input"  type_deol 
output 

••  "output"  type_decl 
optional^reqtnta__trace 

«  "by  requirementa"  id__liat 
type__decl 

-“id^liat  ":"  id 
optional_typejdecl 

-  idjliat  id 
id_^liat 

id  {","  id) 
id 

letter  (alphanumeric) 
alphanumeric 

letter  |  digit 
letter 

-  "a..z-  I  -A.,Z-  I 
digit 

••  "0..9" 


Figure  6-3.  Intermediate  PSDL  Subset 


1.  Abstract  Syntax  Declarations 

The  abstract  syntax  is  the  cote  of  the  editor  specification.  It  is  defined  as  a  set  of 
grammar  rules.  An  object  in  the  resultant  editor  is  represented  by  a  derivation  tree  which 
is  constructed  based  on  the  grammar. 
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The  abstract  syntax  declarations  may  easily  be  defined  from  the  intetmediate 
granunar.  The  literals  of  the  grammar  are  not  considered  at  this  stage  as  they  do  not 
represent  pans  of  a  derivation  tree.  The  abstract  syntax  for  the  PSDL  subset  is  shown  in 
Figure  6-4. 

Nonterminals  with  special  properties  such  as  optional,  list  or  optional  list  aie 
denoted  Ly  using  the  appropriate  property  declarations  in  the  abstract  syntax.  Optional 
iKMiietminals  must  contain  a  nullary  operator  in  addition  to  any  other  desired  operators. 

The  abstract  syntax  declaratioru  ate  a  collection  of  productions.  In  SSL  produc¬ 
tions  have  the  form  xO  :  op(xl  x2  xk),  where  op  is  an  operator  name  and  each  xf  is  a 
nonterminal  of  the  grammar.  The  nonterminal  is  also  referred  to  as  a  phylum.  The  phy¬ 
lum  associated  with  a  given  rKmterminal  is  the  set  of  derivation  trees  that  can  be  derived 
from  it  by  using  operators.  These  derivation  trees  are  referred  to  as  terms.  The  operators 
identify  the  production  instances  in  a  derivation  tree. 

The  SSL  grammar  rule  acts  like  a  context-free  production  xO  ->xl  x2  ...  xk.  All 
operator  names  must  be  unique.  The  operator  of  a  production  distinguishes  h  from  the 
other  alternatives  provided  by  the  left  hand  side  phylum.  One  phylum  in  the  abstract 
syntax  declarations  must  be  distinguislied  as  the  root  phylum.  All  editable  objects  in  the 
editor  are  terms  of  the  toot  phylum. 

Phyla  contain  a  completing  term  and  a  placeholder  term.  The  same  term  nuy  be 
both  a  completing  term  and  a  placeholder  term.  The  fint  operator  declared  for  each  phy¬ 
lum  is  the  con^}leting  operator.  The  completing  operators  construct  default  representa¬ 
tions  for  the  phylum  called  the  completing  term.  An  instance  of  the  appropriate 
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root  padl_componenta; 
list  p3dI_co(npon«nta; 
padi  componanta 
7  PadlHUO 

I  PadlPalc  (component  padl__componenta) ; 
component 

:  KoComponentO 
I  Date (id  type_apec) 

I  Op  (id  operatoc__apec) ; 
opecatoc^apec 

:  OpSpec(optional__inter£ace) ; 
type__8pec 

:  TypeSpec (optional_typejdeclaration) ; 
optional  liat  optional_intec£ace; 
optional_inter£ace 

ZnterFaceNil 0 

I  InterFaceLiat (attribute  optional^interface) ; 
attribute 

:  EmptyAttrO 

I  Input (input  optional^requirementa) 

I  Output (output  optional_requirem«nta) ; 
optional  optional^rcquirementa; 
optional__requirementa 
:  ReqmtaTraceMone 0 
I  AeqmtaPrompt 0 
I  ReqmtaTrace  (id__liat) ; 
input 

:  ZnputTypeDecl (typ«_decl) ; 
output 

:  CutputXypeDecl (type_decl) ; 
type__decl 

:  TypeDecl (id^liat  type_name) ; 
optional  optional__type_declaration; 
optional_type_declaration 
:  OptTypeDeclNilO 
I  OptTypeDecl(id__liat  type__name) ; 
type_name 

:  TypeName (id) ; 
liat  id_li3t; 
id_list 

:  ZdNilO 

I  IdPair(id  id_liat) ; 
id 

:  IdKullO 
I  Id (IDENTIFIER) ; 

Figure  6-4.  Abstract  Syntax 
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completing  term  resides  at  each  unexpanded  occurrence  of  a  phylum  in  a  derivation  free. 
The  coniftleting  term  of  a  list  phylum  differs  in  that  the  completing  term  is  the  singleton 
list  constnicted  by  applying  the  binary  operator  to  the  convicting  term  of  its  left  argu- 
nrent  phylum  and  to  the  list’s  nullaty  operator.  Placeholder  terms  kkntily  locations 
where  subtemu  may  be  insetted.  The  relationship  of  convicting  terms  and  placeholder 
terms  vanes  dependent  upon  the  property  declarations  for  a  phylum.  For  ordinary  phyla 
and  list  phyla  the  same  term  is  both  the  completing  term  and  the  placeholder  term.  For 
optional  phyla  the  completing  term  is  constructed  from  its  first  nuUary  operator.  The 
placeholder  term  is  constructed  from  the  first  operator  which  is  not  used  to  construct  the 
completing  term.  For  optional  list  phyla  the  completing  term  is  constructed  from  the  nul¬ 
lary  vperator,  and  the  placeholder  term  is  the  singleton  list  constructed  by  trying  the 
list's  binary  operator  to  the  completing  term  of  the  list’s  left  child  and  to  the  list’s  nulUry 
term. 

2.  Unparsing  Rules 

The  next  step  in  constructing  an  editor  is  to  define  the  display  representation.  The 
display  representation  is  described  by  a  collection  of  unpenting  rules.  The  utv«ning 
rules  define  the  behavior  of  the  editor  with  respect  to  the  abstract  syntax.  This  module 
contains  specifications  for  the  display  format  and  for  denoting  which  nodes  in  the 
abstract  syntax  tree  are  selectid)le  and  which  productions  of  an  object  are  editable. 

The  SSL  form  for  unparsing  rules  is  phylum  :  operator  [unparsing  syntax]  where 
phylum  and  operator  correspond  on  a  one  to  one  basis  with  the  abstract  syntax.  The 
unp<*r<ing  syntax  includes  a  selection  symbol  which  corresponds  to  the  left  hand  side 
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phylum  and  a  selection  symbol  for  each  node  on  the  right  hand  side  in  the  order  in  which 
the  notics  occur  in  the  abstract  syntax. 

Tltere  may  be  locations  in  the  derivation  tree  which  need  not  be  visible  to  the  user 
of  our  editor.  Tlx:  selection  symbol  which  denotes  a  node  as  a  rating  place  in  the 
tlerivation  tree  is  a  We  denote  nodes  that  we  do  not  wisit  to  be  selectable,  which 
nxians  they  arc  not  resting  places,  by  the  “  selection  symbol.  The  selection  symbol  for 
the  left>hand*side-phylum  is  separated  from  the  right-hand-side-nodes  by  a  :  if  we  do  not 
wish  an  object  to  be  editable,  or  by  a  if  we  do  intend  for  the  object  to  be  editable,  A 
node  in  the  tree  is  an  instance  of  two  phylum  occurrences.  It  occurs  in  the  right-hand- 
side  and  in  the  left-hand-side.  If  either  occurrence  is  represented  with  a  ^  symbol  then 
the  node  representetl  the  phylum  will  be  ticsignated  as  selectable  otherwise  it  is  not 
selectable.  This  characteristic  nece.ssitates  the  development  of  another  convention.  The 
editor  designer  should  choose  a  convention  for  the  insertion  of  resting  places,  either  in 
place  for  the  left-hand-side  phylum  or  the  right-hand-side  phylum.  We  chose  the  left- 
hand-side  phylum  as  our  convention  since  the  resting  places  were  more  easily  recognixed 
and  fewer  @  symbols  were  requited  in  the  unpitrsing  rules.  The  trade-off  with  this 
choice  is  that  if  the  editor-designer  desires  that  a  phylum  be  a  selectable  in  one  subtree 
and  not  selectable  in  another  subtree  then  tire  unparsing  rules  must  be  modified  to 
describe  the  right-hand-side  occurrence  as  a  resting  place  and  the  left-hand-side  as  not  a 
resting  place.  This  occurs  infrequently  in  our  PSDL  language. 

The  syntactic  sugar  of  the  language  is  interspersed  within  the  unpaning  syntax  in 
the  form  of  tokens.  These  tokens  are  enclosed  within  double  quotes.  Display 
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fonnading  such  as  newlines,  tabs  and  back  tabs  may  also  be  included  within  double 
quotes.  The  SSL  display  fotmatting  commands  are  shown  in  Figure  6-5. 


Formatting 

Conunand 

Meaning 

%t 

move  the  left  margin  one  indentation  unh  to  the  right 

%b 

move  the  left  margin  one  indentation  unit  to  the  left 

%n 

newline,  return  to  the  current  left  margin 

%l 

return  to  the  current  left  margin  and  overprint 

%1 

move  to  column  one  of  the  same  line  and  overprint 

%T 

move  right  to  the  next  tab  stop 

%M(c) 

move  right  to  column  c,  where  c  is  a  positive  integer 

%o 

optional  newline,  return  to  the  current  left  margin 

%c 

same  as  %o,  but  either  all  or  no  %c  in  a  group  are  taken 

%{ 

beginrting  of  an  ui^papting  group 

%) 

end  of  an  unparsing  group 

%( 

sameas  %i%( 

%1 

sameas%)%b 

%S(style-name 

enter  the  named  style 

%S) 

revert  to  the  previous  style 

%% 

display  a  % 

Figure  6-5.  SSL  Display  Fomuuting  Commands 


Another  convention  should  be  established  with  regard  to  the  placement  of  tabs 
and  newlines.  The  consideration  is  whether  to  place  the  newlines  in  the  front  of  the 
unparsing  rules  or  at  the  end  of  the  unparsing  ntles,  and  the  level  at  which  to  place  the 
tabs  and  the  back  tabs.  The  effect  of  the  formatting  commands  for  tabs  and  back  tabs  are 
realized  upon  the  next  occurrence  of  a  newline.  We  chose  to  place  the  newlines  at  the 
front  of  tlte  unparsing  rules,  and  tabs  and  back  tabs  in  the  parent  rules.  The  unparsing 
rules  for  our  PSDL  subset  are  shown  in  Figure  6-6. 
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padl^coRiponenta 
7  PadiHil 
I  PadlPiiir 
compontnt 

:  NoCotnponant 
I  op 
I  Data 
Id 

;  XdHull 

I  Xd 


8:1 

• ; " %n ( cewponant 1 " ) 
•':''lnOPCHATOR  ""*1 
*;"%nXXPC  -"*)  ; 

8 ;  :»*"<ld®nti£iet>'' ) 
8::*“*)  ; 


op«rator__apeo 
:  OpSpac 
typ«_apcc 

:  TypaSpac 
optional_intarfaca 
:  XntarFacaMll 
I  XntarFacaLiat 
optional^raquiratnanta 
RaqmtaYracaHona 
I  RaqmtaPrompt 
I  RaqmtaTsacc 
attributa 

:  EmptyAttr 
i  Xnput 
I  Output 
input 

:  XnputTypaDacl 


■>:"%nSPCCXFXCATXOHlt"'‘"lb%nEHO"J  ; 
• ; "%nSPECXFXCATXOM%t " " " %blnEHD« )  ; 

8:J 

8:*(J83  ; 

8:J 

8 : "%n ( saquirananta ) " ) 

8:"%nBY  REQUXREMENTa%t%n"""*b")  ; 

*:*ln(intaEfaca}*] 

•;"%nIHPUT— -%t"*"%b") 
*:"%nOOTPOT— -%b"’"%b"J  ; 

-:"lt%n"“"lb")  ; 


output 


:  OutputTypaDacl  ( 

typa__dacl 

:  TypaDacl  ( 

optional_typa^dacIacation 
:  OpttypeDaclNil  ( 

I  Optl'ypaOocl  ( 

type__name 

:  TypaNama  ( 


-;"%tln«— lb")  ; 

; 

8:"%n{optional  typa  daclaration) "] 

:  —]  ; 

-:*}  ; 


id_li3t 

;  XdNil 
I  XdPaic 


•)8J  ; 


Figure  6-6.  Unparsing  Rules 


3.  Lexeme  Dtclar»tbfu 


Hie  next  step  in  the  development  of  an  editor  is  to  define  the  lexical  ndes.  The 
form  of  a  lexeme  declaration  is  phylum-name  :  lexeme-name  <  re$ular-ejq>ression  >,' 
This  declaration  states  that  all  strings  generated  by  the  given  regular  expression  ate  in 
phylum-name.  The  regular  expression  is  separated  from  the  closing  angle  bracket  by  at 
least  one  blank  character.  The  regular  expression  may  contain  endredded  blank  duurac- 
ters  by  explicitly  esci^ing  the  blank  with  a  bade  slash.  The  lexeme-name  will  be  used  in 
the  concrete  input  definitions.  The  regular  expressions  permitted  in  the  SSL  lexeme 
declarations  are  generally  the  same  regular  expressions  which  are  accepted  by  the  UNIX 
lexical  analyxer  generator  lex.  Figure  6-7  contains  guidance  for  acceptable  regular 
exptessiofu. 


Expression 

Meaning 

c 

the  character  c 

"clc2c3" 

the  string  clc2c3 

[clc2c3J 

the  character  cl  ,c2  or  c3 

[cl-c21 

any  of  the  characten  from  cl  through  c2 

rclc2c3] 

any  character  but  cl,c2  and  c3 

'‘e 

an  e  at  the  begirming  of  a  line 

e$ 

an  e  at  the  end  of  a  line 

e? 

anopikmale 

e* 

0  or  nwre  instarrees  of  e 

e+ 

I  or  more  instances  of  e 

ele2 

an  el  followed  by  an  e2 

elie2 

an  el  or  an  e2 

(c) 

ane 

eHe2 

an  el  but  only  if  followed  by  an  e2 

e(ni^2) 

nl  through  n2  occurreiKcs  of  e 

Figure  6-7.  Regular  Expressions 
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Lcxcidc  (Iccinrntions  fonn  an  ordered  list.  During  lexical  analysis  in  an  editor, 
this  order  influences  the  recognition  process.  When  more  than  one  regular  expression 
matches  a  string,  the  longest  match  is  selected.  If  several  rules  match  with  the  same 
number  of  characters,  tlKn  the  first  declaration  which  matched  in  the  specification  is 
selected.  TIk  lexeme  declarations  for  our  PSDL  subset  are  shown  in  Figure  6*8. 


IDENTIFIER;  IdentL«x<  la-zX-ana-xA-E__0“9J  *  >; 

Figure  6-8.  Lexeme  Declarations 

4.  Attribute  Declarations 

The  next  step  in  the  development  of  an  editor  is  to  define  the  attribute  declara¬ 
tions.  The  attribute  declarations  define  the  association  between  the  abstract  syntax  and 
tlie  concrete  iitput  syntax.  SSL  attribute  declarations  associate  an  attribute  with  the  name 
of  a  phylum.  They  also  describe  tire  type  and  the  source  of  the  attribute  as  either  syn¬ 
thesized  or  inherited.  The  form  of  an  SSL  attribute  declaration  is  phylum  {source  attri¬ 
bute  type;};  Tlris  fde  also  contains  entry  declarations  which  establish  the  correspondence 
between  the  selections  in  tlie  abstract-syntax  tree  which  are  to  be  edited  and  the  entry 
points  within  the  input  syntax.  Tire  fonn  of  an  SSL  entry  declaration  is  p  ’P.t;,  Tlris 
example  indicates  that  when  a  selected  component  of  the  program  is  a  member  of  phy¬ 
lum  p,  input  is  to  be  parsed  to  detemrine  if  it  is  a  member  of  P.  If  it  is,  then  attribute  t 
should  be  inserted  in  the  abstract-syntax  tree,  and  should  replace  the  current  selection. 
The  attribute  declarations  aitd  their  entry  declarations  for  our  PSDL  subset  are  shown  in 
Figure  6-9. 
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Id«nt 

(aynthflBixcd  id  t;); 

( synthasixed  id_liat  t; } ; 

id 

“  Zdant.t; 

id^liat 

"  Id_lidt.t; 

Figure  6-9.  Attribute  Declarations 

5.  Concrdc  Input  SynUx 

The  concrete  input  syntax  of  a  language  to  be  used  for  text  editing  is  defined  in 
terms  of  a  concrete  input  grammar.  It  con^prises  the  rules  which  qrecify  the  set  of  syn¬ 
tactically  well-formed  strings,  the  structure  of  parse  trees,  and  attribute  equations  that 
specify  the  translation  of  the  parse  trees  into  terms  of  the  abstract  syntax. 

The  attribute  equations  specify  how  values  of  synthesized  attributes  of  the  left- 
hand  side  nonterminals  ate  computed  in  tenns  of  their  inherited  attributes  and 
synthesized  attributes  associated  with  nonterminals  on  the  right-hand  side.  They  also 
determine  how  inherited  attributes  of  right-hand  side  nontenninals  are  constructed  from 
inherited  attributes  of  dte  left-hand  side  nonterminals  and  from  synthesized  attributes  of 
left  siblings. 

The  minimum  syntax  required  fc^  an  editor  must  provide  for  all  language  con¬ 
structs  which  are  entered  as  text  via  the  keyboard.  Ultimately,  the  concrete  input  syntax 
should  recognize  the  entire  language  to  permit  the  user  to  read  existing  objects  into  a  text 
file  and  then  edit  those  objects.  The  concrete  irqjut  syntax  for  our  PSDL  subset  is  showri 
in  Figure  6-10. 


73 


Zdent  (ZDENTZFZER) 

(Zdent.t  «  Zd(ZDEKTZrZER);); 


Zd__liat  (Zdent) 

(Zd_liat.t  «  (Zdent.t: :ZdHil);) 

I  (Zdent  Zd_liit) 

{Zd_liat$l.t  -  (Zdent.t;  :Zd_Uat|2,t);); 

Figure  6-10.  Concrete  Input  Syntax 


The  left-hand  side  phyla  name  are  separated  from  the  right-hand  side  symbols 
with  a  : :  -  symbol.  Single  characters  may  be  enclosed  in  single  quotes  on  the  right- 
hand  side  of  the  parsing  declarations.  Different  occurrences  of  the  same  nonterminal  are 
distinguished  by  appending  a  number,  such  as  $1  and  $2,  which  reflects  their 
occurrence  in  the  rule.  The  second  rule  in  our  syntax  specifies  that  a  list  of  identifiers  is 
separated  by  a  comma  in  the  concrete  syntax  and  that  the  lexeme  values  parsed  are  con¬ 
catenated  to  a  list  (using  the  predefined  concatenation  operator  : : )  whose  value  is 
stored  in  the  synthesized  attribute  t  of  the  nonterminal  Id^llst. 


6.  Templates  and  Transformations 

The  next  step  is  to  define  the  templates  and  transfonmtions.  Transformations 
may  define  templates  which  are  inserted  whenever  the  selection  is  a  placeholder  or  may 
compute  a  replacement  value  dependent  upon  the  former  value  of  the  selection.  We  only 
defined  template  transformations  for  our  first  editor.  These  declarations  specify  the  res¬ 
tructuring  of  objects  when  a  current  selection  matches  a  given  pattern.  The  general  form 
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of  a  transformation  declaration  is  transform  xO  on  transformation-name  <x0>  : 
operator(<xl>,„.,<xn>); ,  where  transform  and  on  are  SSL  reaerved  wordi,  operator-  ia 
an  operator  and  xO  through  xn  are  productions  in  the  abatract  syntax.  The  template 
tnmsfonnations  for  our  PSDL  subset  are  shown  in  Figure  6^11. 


tsanafom  component 
on  "type" 

<coinponent>  : 

Date (<id>, <type_apec>) , 
on  "operator" 

<co(aponent>  : 

Op (<ld>, <operator^apec>) ; 

transform  attribute 
on  "input" 

<attribute>  : 

Input (<input>/<optional_requireiaents>) , 
on  "output" 

<attribute>  : 

Output (<output>/ <optional__require»enta>) ; 

transform  optional__requirement8 
on  "enter_requireinents" 

<optional_requirement8>  : 

ReqmtsTrace  (<id__list>) ; 

transform  optional__type_declaration 
on  "enter_declaration" 

<optionai_type_declaration>  : 

OptTypeDeol (<id__list>, <type_na»e>) ; 

Figure  6-11.  Template  Transformations 


E.  DESIGN  ISSUES  OF  THE  COMPLETE  PSDL  EDITOR 


The  PSDL  Syntax  Directed  Editor  described  here  and  used  in  CAPS  is  a  very 
simplistic  editor  widi  regard  to  the  level  of  soj^stication  capable  in  an  editor  generated 
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from  the  ConicII  Synthesizer.  Tlte  simplistic  design  of  our  PSDL  editor  was  intentional. 
We  have  purposely  turned  off  features  which  may  normally  be  included  in  an  editor  gen* 
erated  from  the  Cornell  Synthesizer  Generator.  We  have  purposely  documented  only  a 
very  small  subset  of  the  available  editor  commands.  The  subset  of  editor  commands  pro¬ 
vided  in  our  on-line  documentation  is  sufficient  to  use  the  PSDL  editor  as  we  intended. 
In  on  enviromnent  which  contains  multiple  tools  which  interact  with  the  user,  we  believe 
that  the  interfaces  must  be  kept  simple  and  should  be  as  consistent  amongst  the  different 
tools  as  possible.  We  felt  that  the  trade-off  in  the  complexity  of  the  editor's  user  inter¬ 
face  with  the  additional  capabilities  provided  by  the  Cornell  Synthesizer  Generator  was 
not  warranted  for  our  application. 

Our  editor  is  consistent  with  the  principle  that  a  user  interface  should  always  provide 
feedback  for  any  user  input.  The  display  always  changes  in  appearance  any  time  tlie  user 
enters  an  editor  command  or  any  other  keyboard  input. 

We  have  updated  the  PSDL  grammar  during  the  design  and  implementation  of  the 
PSDL  editor.  There  were  four  changes  in  the  grammar  which  were  not  single  factoriza¬ 
tions  but  that  actually  changed  the  meaning  of  the  language.  The  first  change  simply 
made  the  grammar  more  regular.  PSDL  primary  objects  such  as  operators  and  data  types 
have  two  parts:  a  specification  part  and  an  implementation  part.  The  specification  con¬ 
struct  begins  with  SPECIFICATION  and  ends  with  END.  The  implementation  part 
may  consist  of  a  psdl  implementation  or  an  ada  implementation.  The  psdl  implementa¬ 
tion  construct  begins  with  IMPLEMENTATION  and  ends  with  END.  The  ada  imple¬ 
mentation  construct  began  with  IMPLEMENTATION  ADA  and  contained  an  Ada  pro¬ 
gram.  An  ada  implementation  did  not  require  an  END  to  bracket  the  construct.  We 
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decided  (o  change  the  granvnw  to  require  that  an  ada  implementation  end  with  an  END 
to  incrense  ilie  regularity  and  syntactic  consistency  of  the  language. 

The  second,  third  and  fourth  changes  to  the  grammar  involved  a  similar  issue.  The 
rules  for  and  constraint  permitted  that  the  smal¬ 

lest  correct  use  of  the  rules  resulted  in  unsatisfactory  conditions.  The  iMt  three  changes 
to  the  rules  resulted  in  required  subsets  of  the  original  grammar,  llie  mles  which  relate 
to  data.flowjdiagram  and  controI_constrainta  ate  shown  in  Figure  6-12. 


padl  implemenbatilon 

"impleni«ntation"  data_£low__diagrain  [atraama]  {tiaMra] 
{cor*  :ol_conatraint:a]  (inl!ormal__de3c)  "end" 
data_£low__diagram 

■  "graph"  (link.) 
conbrol_conatrainba 

"conbrol  conabrainba"  (conabeainb) 


Figure  6-12.  Original  PSDL  Rules 

The  smallest  correct  psdl  implementation  which  resulted  from  these  rules  is  shown  in 
Figure  6-13. 


XMTLEMENTATIOH 

GRAPH 

END 


Figure  6-13.  Smallest  PSDL  Implementation  According  To  Previous  Grammar 


j 

1 
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Tliis  yields  aii  empty  implenwntation.  We  decided  that  an  empty  in^mentalkm 
should  not  be  pennitted,  Tlw  granunar  was  changed  to  require  that  a  psdl  impleiiieRta< 
lion  contain  at  least  one  link  statement.  The  change  in  the  grammar  is  shown  with  its 
corresponding  smallest  construct  is  shown  in  Figure  6-14. 


«  "gtuph"  link  (link} 


IMPIiEMEKTATION 

GRAI^H 

id  id  time]  id 

END 


Figure  6-14.  Updated  Psdl  Implementation  Rule  And  Its  Smallest  Corutruct 


The  control  constraints  consuuct  is  optional  in  the  psdl  implementation  rule.  Fievi- 
ously  when  selected,  it  oould  consist  of  keywords  only,  as  shown  in  Figure  6-15. 


IMPLEIUENTATIOH 

GR^PH 

id  id  [":«  time]  id 

CONTROL  CONSTRAINTS 

END 


Figure  6-15.  Smallest  Control  Constraint  According  To  Previous  Grammar 
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We  changed  the  PSDL  gramiT  at  so  that  if  a  control  constraint  construct  was  selected, 
then  tite  construct  ntust  contain  at  least  one  constraint.  The  current  control  constraint 
rule  and  its  smallest  corresponding  result  are  shown  in  Figure  6-16. 


ZMPLEMSNTATXON 

GRAPH 

id  id  ti»«l  id 

CONTROL  CONSTRAINTS 
OPERATOR  id 

END 


Figure  6-16.  Current  Smallest  Ccnirol  Constraint  In  Context 


The  fourth  change  in  the  grammar  cofKemed  the  triggered  option  in  the  constraint 
nile.  The  problem  we  found  with  this  rule  was  similar  to  the  problem  with  the  previous 
smallest  constraint  rule.  The  previous  constrautt  rule  and  an  exam{^  of  the  smallest 
construct  using  the  triggered  option  is  shown  in  Figure  6-17. 


constraint 

■  "operator"  id 

["triggered"  (trigger]  ("if"  predicate]  [reqpat8_trace] ] 
("period"  time  [reqmts^trace] ] 

("finish  within"  time  (reqmts_trace] ] 

{ con8traint_option8 ] 


CONTROL  CONSTRAINTS 
OPERATOR  id 
TRIGGERED 


Figure  6-17.  Previous  Triggered  Option 
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Wc  changed  the  triggered  option  so  that  if  it  was  selected  it  rerjuires  either  a  triffer 
or  an  optional  trigger  followed  by  a  required  *'ir  predicate.  The  curtem  constraint  role 
with  tlte  smallest  possible  triggered  options  are  shown  in  Figure  6-18. 


constraint 

-  "operator"  id 

("triggered"  (trigger  |  (trigger]  "if"  predicate)  (.teqMta_trace] ] 
("period"  time  (teqmts__^tracei  J 
("finish  within"  time  (reqmte__trace}  ] 

(constraintjoptions) 

CONTROL  CONSTRAINTS 
OPERATOR  id 
TRIGGERED 
BY  ALL  a,b 

CONTROL  CONSTRAINTS 
OPERATOR  id 
TRIGGERED 
IF  a  -  0 


Figure  6-18.  Current  Triggered  Option 


The  complete  PSDL  Grammar  shown  in  Appendix  A  is  the  updated  grammar  which 
reflects  the  changes  we  have  described.  The  implementation  of  our  PSDL  editor  is  con¬ 
tained  in  Appendices  G  through  L. 

F.  INTEGRATION 

The  files  which  comprise  the  functional  components  of  the  PSDL  editor  and  related 
documentation  files  reside  mostly  in  the  directory  /n/suns2Avoik/caps/syntaxjeditor. 
These  components  are: 
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pev  executable  tenninal  psdl  editor 

pew  executable  sunview  psdl  edKor 

psdl.as.ssl  abstract  syntax  for  ptKll  editor 
psdl.ad.ssl  attributr  Munitions  for  psdl  editor 
psdl.ci.ssl  concrete  input  for  psdl  ^itor 
psdl.lex.ssl  lexical  file  for  psdl  editor 

psdl.tt.ssl  template  tramfonnations  for  psdl  editor 

psdl.up.ssl  unparstng  mles  for  psdl  editor 
Makefile  shell  script  to  generate  an  executable  PSDL  editor 
from  the  psdl.^.ssl  specifications. 

An  additional  file  which  initializes  the  syntax  directed  editor  it: 

/n/suns2/work/caps/.syn_profile 

The  on-line  manual  page  insmictions  for  pev  is  located  at: 

Ai/suns2/usrAnan/man^)e.l 

The  Cornell  Synthesizer  Generator  is  located  at: 

/n/suns2^sr/suns2Aocal/syn 

When  the  syntax  direaed  editor  is  required  the  user  interface  creates  a  new  process 
which  executes  the  PSDL  editor  concurrently  with  the  user  interface  and  any  other  poten¬ 
tially  active  processes.  When  the  designer  saves  the  PSDL  prototype  from  within  the 
editor  it  is  initially  saved  in  the  ciq)s  directoiy.  The  user  interface  directory  currently 
simulates  the  design  database  and  the  software  database. 


G.  USING  THE  PSDL  EDITOR 


When  a  user  selects  the  syntax  directed  editor  from  within  the  CAPS  construction 
menu,  he  is  given  the  option  to  view  the  on-line  user's  manual.  If  instructions  ate 
requested,  dien  the  following  description  is  provided  using  the  UNIX  man  facility.  These 
instructions  may  also  be  accessed  outside  of  CAPS  by  executing  man  pe. 
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NAME 

pc  •  PSDL  syntax  directed  editor 

SYNOPSIS 

pc 

DESCRiPVION 

pc  is  a  syntax  directed  editor  for  the  prototype  system 
description  language  (PSDL).  This  editor  was  designed  to  be 
used  within  the  Computer  Aided  Prototyping  System  (CAPS). 
Titc  editor  provides  a  simple,  ntostly  regular  user  interface 
which  guid^  the  user  paiiilessly  tlirough  the  stnictuie  of  a 
correct  PSDL  program. 

llrere  are  3  primary  modes  of  interaction  with  the  editor. 

Each  mode  is  visually  distinctive. 

1.  Required  Keyboard  Input  is  denoted  by  a  token  contained 
in  angle  brackets,  sudt  as  <identifief>. 

2.  Required  Constmet  Choices  are  contaured  within  square 
brackets,  such  as  (implemeniattonj.  When  a  construct  choice 
is  required,  tire  user  selects  an  alternative  by  pressing  the 
tab  key  followed  by  typing  the  alternative  or  typmg  an 
unambiguous  prefix  for  the  alternative. 

3.  Optional  Construct  Qrcices  are  contained  within  braces, 
such  as  {tlescriptiori}.  Tire  user  may  select  an  optional 
construct  in  the  exact  same  manner  as  a  required  choice.  The 
user  may  pasS'Overan  optional  construct  by  pressing  the 
return  key. 

STRUCTURE  TRAVERSAL 

The  current  [roshion  within  the  structure  of  a  PSDL  program 
may  be  changed  by  the  following: 

*N  -  next  required  construct. 

or  return  -  next  construct,  required  or  optional. 

-  previous  required  construct. 

‘'H  or  backspace  -  previous  construct,  required  or  optional. 
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KEYBOARD  INPUT 

current  position  while  entering  «  particular  text  item 
via  keyboard  iqput  may  be  changed  by  the  following: 

DEL  -  Delete  previous  character. 

*D  -  Delete  cuirent  character. 

‘F  -  Move  the  curaor  one  character  to  the  right. 

-  Move  the  cursor  one  character  to  the  left. 


SAVING  THE  PROTOTYPE 

Once  the  prototype  description  has  been  entered  the  hie  may 
be  saved  with  the  following  method: 

*X'W  -  a  fonns  display  ^>pears  at  the  bottom  of  die  screen. 

The  cursor  is  positioned  at  file-name.  Enter  the  name 
psdl.texl. 

Press  the  tab  key.  The  cunor  is  positioned  at  file- 
type.  Enter  the  type  text . 

Press  the  tab  key  again,  and  enter  ESC  s  to  execute  the 
command. 

The  file  has  been  saved  and  the  forms  display  is  cleared 
from  the  screen. 


EXITING  THE  EDITOR 

The  editor  is  exited  by  typing  'C. 

AUTHOR 
Laura  J.  White 

FILES 

/caps/'.8yn_profilc 

/cajn/syntax.editor^v 

/capa/syntax_editor^w 

/caps/syntaxjeditor^psdl.as.ssl 

/ci^syntax„editor/psdl.ad.ssl 

/caps/syntax_editor^psdI.ci.s8^ 

/ct^syntaxjeditor^psdl.lex.ssl 


default  parameters  for  the  psdl  editor 
terminal  psdl  editor 
sunview  psdl  editor 
abstract  syntax  for  psdl  editor 
attribute  Munitions  for  psdl  editor 
concrete  input  for  psdl  editor 
lexical,  file  for  psdl  editor 


/caps/syntax_cditor/ps<ll.li4sl  icmplatc  transfonmations  for  psdl  editor 
/caps/syntax^cditor/psdl.up.ssi  unparsing  nilcs  for  psdl  editor 

SEE  ALSO 

White,  L.  J.,'ntc  Dcvciopntent  of  a  Rapid  Prototyping  Environment, 

^4as^cr's  Tlwsis,  Naval  Postgraduate  School,  Monterey,  California, 

December  1989. 

BUGS 

Tnc  text  part  of  the  PSDL  granunar  has  not  been  implemented. 

Identifier  is  currentiy  used  in  phicc  of  text. 

Some  of  the  constructs  remain  at  tlic  airrcnt  location, 
instead  of  advancing  forward  after  a  selection  is  made,  llie 
visibility  behavior  of  optional  constructs  within  some  con* 
stmets  is  still  "mysterious"  in  some  instances.  This  must 
be  correct'd  before  a  sunview  editor  implementation  will  be 
use-^-?. 

Name  analysis  and  type  cliecking  is  not  performed  in  the 
cutTcnt  version  of  pe. 

A  sample  editing  session  for  the  constntetion  of  a  simple  prototype  is  described 
witliin  the  rest  of  tliis  section.  We  will  show  the  contents  of  the  video  screen  as  the  edit¬ 
ing  session  progresses.  Whenever  a  user  presses  a  tab  the  conunand  input  prompt 
appears  at  the  top  of  the  screen.  The  middle  of  the  screen  contains  the  program.  The 
current  position  in  the  abstract  syntax  tree  is  displayed  on  the  bottom  line  to  the  left.  If 
command  mode  options  are  available,  they  appear  to  the  right  of  the  Positioned  at 
display.  An  option  may  be  sclec:ed  by  entering  an  unambiguous  prefix  at  the  prompt  or 
passed  over  by  pressing  the  return  key.  Figure  6-19  contains  the  contents  of  tlie  video 
screen  once  the  syntax  directed  editor  is  started  and  initialized. 


^OAltionett  At  padl^coinponents  oparatoc 

Figure  6-19.  Sample  Editing  Session 

We  pressed  the  tab  key  to  obtain  the  editor’s  command  pron^.  The  contmand 
prompt  appears  at  the  top  of  the  display  as  shown  in  Figure  6-20. 


COMMAND: 

[cawpwMMt] 


Poaitioned  at  p.adl__coiaponent9  type  operator 

Figure  6-20.  Sample  Editing  Session 
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At  this  point,  wc  entered  the  unur.biguous  prefix  ’o'  for  An  operator  componem.  The 
connttnnd  prompt  disappears  oml  tite  template  for  an  operator  con^ponsnt  is  displayed  u 
shown  in  Figure  6-21. 


OPERXTOR 

SPECirXCATIOH 

EttD 

topesAtOK  ia'pXeinent«elon] 


Positioned  «t  id 


Fixture  6-21.  Sample  Editing  Session 


We  then  entered  the  identifier  name'  for  the  operator  as  shown  in  Figure  6-22.  After 
ilte  identifier  name  is  entered,  the  placeholder  for  an  optional  interface  construct  appears, 
lire  choices  for  an  optional  interface  construct  are  displayed  on  the  bottom  of  the  screen. 


OPERATOR  cpet«tor_X 
SPECIfICATlON 
(Interfsce} 

END 

(operates  implementation] 


Positioned  at  optional_^int«r£ace  input  output  states  genacic 
exceptions  timing_info 

Figure  6-22.  Sample  Editing  Session 
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We  now  chose  to  describe  am  input  so  we  pressed  the  tab  key  and  entered  the  unam¬ 
biguous  prefix  'i*.  'rhe  display  was  updated  with  the  input  construct  as  shown  in  Figure 


6-23. 


OPERATOR  opor»tor__l 
SPECiriCATIOK 
INPUT 

END 

(op«rator  implementation] 


Poaitioned  at  id  list 


Figure  6-23.  Sample  Editing  Session 


After  we  entered  the  identifier  name  of  an  in^t  and  its  type  as  shown  in  Figure  6-24, 
the  optional  placeholder  for  a  generic  actual  parameter  is  displayed. 


OPERATOR  operator_l 
SPECXrZCATZON 
INPUT 

X  :  integer  (femrk  actval  paraMcters) 

(requirements) 

END 

[operator  implementation] 


Positioned  at  optional_generic^actual8  enter_generic_actual_paraBMter8 

Figure  6-24.  Sample  Editing  Session 
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At  this  time  we  did  not  wish  to  specify  any  generic  parameters  so  we  pressed  the 
return  key  to  pass  over  this  option.  An  optional  placeholder  for  morejype_(fccls 
appears.  We  do  not  wisli  to  specify  any  more  inputs  for  our  operator,  nor  any  requite- 
ments  for  our  input  so  we  pressed  the  return  key  two  more  times.  PSDL  allows  lero  or 
more  interface  constructs  so  the  interface  option  appears  again  as  shown  in  Figure  6-25. 


OPERATOR  operatot_l 
SPECIFICATION 
INPUT 

X  :  integer 
(interface) 

END 

[operator  implementation] 


Positioned  at  optional_intee£ace  input  output  states  generic 
exceptions  timing__in£o 

Figure  6-2S.  Sample  Editing  Session 

We  choose  to  enter  timing  information  for  our  operator  so  we  press  the  tab  key,  enter 
an  unambiguous  prefix 't'  and  press  return.  The  placeholders  for  the  optional  timing  con¬ 
structs  appear,  and  we  are  positioned  at  the  first  choice  as  shown  in  Figure  6-26. 
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OPERATOR  opej:*tor_l 
SPECiriCATION  ” 

INPUT 

X  :  integer 

(■H<) 

(mcp) 

(mrt) 

( requirements ) 

END 

(operator  implementation] 


Positioned  at  optional_m«t  «nt«r_MET 

Figure  6-26,  Sample  Editing  Session 

■i 

We  chose  to  enter  a  MET  so  we  pressed  the  tab  key,  entered  an  *e'  at  the  command  j 

prompt  and  pressed  return.  The  MET  construct  replaces  the  optional  placeholder  and  we 
are  positic  integer  as  shown  in  Figure  6-27. 


OPERATOR  op«rator_l 
SPECiriCATION 
INPUT 

X  :  integer 

MAXIMUM  EXECUTION  TIME 
(mop) 

(mrt) 

(requirements) 

END 

(operator  implementation] 


Positioned  at  integer 

Figure  6-27.  Sample  Editing  Session 
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Wc  entered  a  value  for  tlic  time  constraint  and  pressed  return.  The  optional  unit 


placeholder  appeared  as  shown  in  Figure  6-28. 


OPERATOR  opexator_l 
SPECiriCATIOM 
INPUT 

X  :  intcyec 

MAXIMUM  EXECUTION  TIME  10  (linlU) 
(racp) 

(mEh) 

( xequiEomenta ) 

END 

[opeestoE  implementation] 


Poaitioned  at  optional_unit  milliaeconda  aeconda  minutea  houra 


Figure  6-28.  Sample  Editing  Session 


We  selected  milliseconds  as  our  units  by  pressing  the  tab  key  titen  entering  the 
unambiguous  prehx  *mil'.  After  that  we  chose  not  to  enter  any  more  timing  information 
or  any  requirements  so  we  pressed  return  until  we  were  given  the  opportunity  to  enter 
another  interface  construct.  We  chose  not  to  enter  any  more  of  these  so  we  pressed  the 
return  key  again.  We  are  now  positioned  at  an  optional  keywords  construct  as  shown  in 
Figure  6-29. 
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OPERATOR  op«rator_l 
SPECiriCATlON 
INPUT 

X  :  integer 

MAXIMUM  EXECUTION  TIME  10  MS 

(keyword*} 

END 

[operator  iroplententation] 


Positioned  at  opt ional_key words  «nter_)cayword8 

Figure  6'29.  San^le  Editmg  Session 

We  chose  not  to  enter  tny  keywords  so  we  presced  the  return  key.  An  optional 
description  placeholder  appeared  which  we  passed  over.  After  that,  an  optional  axioms 
placeholder  ^)peared  which  we  also  passed  over.  We  were  then  positioned  at  an  opera* 
tor  implementation  as  shown  in  Figure  6-30. 


OPERATOR  operator_l 
SPECinCATION 
INPUT 

X  :  integer 

MAXIMUM  EXECUTION  TIME  10  MS 

END 

[operator  liepitawatadoal 


Positioned  at  operator_inpl  psdl_iinpleiaentation  ada_implementation 

Figure  6-30.  Sample  Editing  Session 
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Wc  selected  a  psdl  intpleincntatton  and  the  appropriate  template  for  the  implementa¬ 


tion  appeared  as  shown  in  Figure  6-31. 


OPERATOR  opej:»tor_l 
SPECIFICATION 
INPUT 

X  :  integer 

MAXIMUM  EXECUTION  TIME  10  MS 

END 

IMPLEMENTATION 

GRAPH 

<klcntiflcr> .  <identlf  iec>-><ldiflnti£iec> 
(data  atream) 

(timer) 

(control  constraints ) 

(description) 

END 

Positioned  at  id 


Figure  6-31.  Sample  Editing  Session 


At  this  point  we  could  continue  to  describe  the  implementation  of  our  operator  in  the 
same  manner  as  we  did  with  the  specification  part,  but  we  chose  to  exit  the  editor. 

The  PSDL  editor  uses  a  veiy  small  subset  of  the  capabilities  provided  for  an  editor 
using  the  Cornell  Synthesizer  Generator.  Simplicity  and  ease  was  a  primary  goal  for  our 
editor.  This  goal  caused  us  to  intentionally  design  our  editor  so  that  a  very  small  subset 
of  traversal  commands  would  be  required  to  use  the  editor  effectively. 
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H.  FUTURE  WORK 


The  following  items  were  either  not  completed  in  the  initial  draft  of  the  editor  due  to 
time  constraints  or  were  identified  as  a  result  of  testing. 

1)  The  text  rule  in  the  PSDL  grammar  still  requires  implementation. 

2)  The  concrete  input  syntax  should  be  expanded  so  that  a  complete  PSDL  program  may 
be  paned.  An  existing  file  can  only  be  read  into  the  syntax  directed  editor  if  concrete 
input  syntax  has  been  specified  for  the  complete  grammar. 

3)  Name  analysis  and  type  checking  still  require  implementation. 

4)  The  video  version  of  the  PSDL  editor  highlights  the  locator  and  the  placeholder.  The 
highlighted  locator  is  a  feature  provided  by  the  Cornell  Synthesizer  Generator.  This 
feature  is  inconsistent  with  the  editor  we  designed  and  confuses  the  user.  The  locator 
should  not  be  visibly  displayed. 

5)  The  inconsistencies  with  placeholders  must  be  corrected  to  provide  a  useful  editor 
which  provides  a  Sun  version  of  the  editor  which  utilizes  the  mouse,  pop-up  windows 
and  scrolling  windows.  Once  these  inconsi8tet>s«s  ate  eliminated,  the  editor  designer 
need  only  recompile  the  editor  specifications  with  a  SUN  option  flag  or  a  X  option  flag  in 
the  Makefile  to  provide  a  gr^)hic  interface. 

6)  The  current  version  of  the  editor  has  been  integrated  into  CAPS  in  a  very  simple 
manner.  More  sophistication  in  terms  of  its  interaction  with  the  design  database, 
software  base  and  the  graphic  editor  is  necessary  to  meet  the  requirements  of  the  current 
design. 
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vn.  THE  SOFTWARE  DATABASE  SYSTEM 


The  Software  Database  System  consists  of  the  following  tools; 

-  the  Design  Database 

-  the  Software  Base 

-  the  Software  Design  Management  System 

'fhis  system  provides  for  the  utilization  of  reusable  prototype  designs  and  reusable 
software  contponents  during  tlie  rapid  prototyping  process,  lltese  tools  have  not  yet 
been  integrated  into  CAPS.  This  is  an  important  area  which  requires  follow-on  design 
and  implementation.  This  chapter  is  included  here  for  completertess  in  describing  the 
development  of  our  environment. 

A  survey  of  existing  database  management  methodologies  and  systems  has  been 
conducted  to  detemiine  the  primary  features  required  to  support  our  software  database 
system.  Feasability  studies  have  also  been  conducted  to  refine  the  requirements  and 
interaction  within  CAPS  using  one  selected  database  management  system. 


A.  REUSABILITY 

The  key  motivation  for  our  software  database  system  is  reuse.  The  benefits  arxi 
advantages  of  reusability  include: 

-  improved  software  quality  and  maintenance 

-  increased  programmer  productivity  and  efficiency 

-  faster  software  development 

-  lower  development  costs 
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Gallic  [13]  provkics  us  with  a  brief  synopsis  of  the  following  areas  of  research 
regarding  software  reusability: 

-  reusability  and  abstraction 

-  Ada  and  reusability 

-  the  Ada  software  repository 

-  object-oriented  programming  and  reusability 

-  a  keyword  based  retrieval  system 

-  a  reusable  software  library 

-  classification  ai>d  retrieval 

Qalik  found  that  researchers  gerterally  agreed  that  a  greater  use  of  abstraction 
resulted  in  greater  reusability.  Pamas  [30]  notes  drat  information  hidbg  and  abstraction 
generally  produces  software  that  is  well-defined  and  well-documented,  which  tends 
towards  reusability. 

Reusability  was  a  primary  concern  in  the  design  of  the  Ada  programming  language, 
which  supports  both  abstraction  and  information  hiding.  Ada  separates  the  interface 
specification  of  a  progrun  unit  from  hs  im{dementation.  These  specifications  determine 
how  program  units  may  be  reused.  Both  the  specification  and  the  in^emenlation  parts 
may  be  reused.  Ada  provides  a  package  subprogram  which  strongly  supports  the 
development  of  abstract  data  types.  A  key  feature  of  Ada  is  tiie  generic  unit  which  is  the 
primary  mechanism  provided  in  the  language  for  building  reusable  software  con^ponents. 

The  Ada  Software  Repository  [31]  is  a  public-domain  collection  of  Ada  programs 
and  information.  The  software  components  are  categorized  by  their  high  level  ^jplica- 
tions.  A  programmer  must  sc-an  an  index,  then  browse  each  of  the  potential  candidates 
for  its  suitability.  This  can  be  a  very  time-consuming  process. 
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Johnson  nnn  Fooic  [32]  sute  that  object-oriented  programming  promotea  software 
reuse.  Tlicy  state  that  class  definitions  provide  modularity  and  information  hiding  which 
suppons  reuse.  Class  initetiiancc  suppons  reuse  by  permitting  classes  to  be  modified  ro 
fomr  subclasses. 

Matsumoto  [33]  desr''’oes  an  object-oriented  retrieval  system  being  developed  which 
is  a  simple  keyword  h  i  system.  A  synonym  library  provides  a  standard  normalized 
keyword  for  retrieval  bai^*,d  on  user  input. 

A  Reusable  Software  Library  (RSL)  has  been  developed  at  Intcmrelrics,  Inc.  The 
RSL  [34]  is  comprised  of  the  RSL  database  and  four  subsystems  which  are: 

-  a  library  management  subsystem 

-  a  user  query  subsystenr 

•  a  software  conqronenent  retrieval  and  evaluation  subsystem 

•  a  software  conq)uier-aidcd  design  subsystem 

This  library  classifies  components  by  a  set  of  attributes.  Retrieval  is  an  interactive 
process  which  identifies  components  which  perfomr  a  desired  function.  The  user  assigns 
relative  imponance  to  the  attributes  of  the  components  and  the  system  evaluates  and  rates 
components  based  on  the  user’s  needs. 

Prieto-Diaz  and  Freeman  [3S]  state  that  the  proper  classification  of  reusable  software 
components  is  tlie  central  issue  in  making  reusability  an  attractive  approach  to  software 
development.  They  propose  on  integrated  classification  scheme  that  is  embedded  within 
the  retrieval  system.  An  evaluation  mechanism  is  provided  to  Irelp  users  discriminate 
between  similar  components  in  tire  software  base  and  to  allow  users  to  select  components 
which  will  require  minimal  modifications.  Tlielr  algorithm  is  shown  in  Figure  7-1.  Tliis 
algorithm  provides  tlie  basis  for  our  design  in  retrieving  reusable  components  in  CAPS. 
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aeacch  llbcary 
if  Identical  match  then 
terminate 
else 

collect  aimilac  componenta 
Cor  each  componenet  com 
compute  degree  o£  match 

end 

rank  and  aelect  beat 
modify  component 
endif 


Figure  7-1.  Code  Reuse  Proceu 


The  classification  scheme  proposed  by  Prieto-Diaz  utilizes  a  descnp(io(\  of  software 
con^x)nents  with  a  sextuple  containing  attributes  which  capture  the  functional  charac¬ 
teristics  of  the  component. 


B.  REQUIREMENTS 

The  requirements  for  our  software  database  system  were  defined  to  provide  the  fol¬ 
lowing  capabilities: 

-  to  store  PSDL  designs  and  software  components 

-  to  retrieve  designs  and  software  con^xxients  for  editing 

-  to  retrieve  designs  and  software  components  for  review 

-  to  delete  designs  and  software  components 

-  the  CAPS  user  interface  should  interact  with  the  software 
database  system  in  such  a  way  that  the  software  management  system 
is  transparant  to  the  protoype  designer. 
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C.  SURVEY  OF  DATABASE  MANAGEMENT  TECHNOLOGIES 


Relational,  Hicracliical,  Network  and  Object-Oriented  database  management  systems 
were  evaluated  by  Colik.  He  found  that  the  first  three  did  not  support  efficiency  or  pro¬ 
ductivity  due  to  the  following  characteristics: 

-  fixed  set  of  structures  and  operations 

-  limitations  of  a  fixed  set  of  predefined  types 

-  redundancy  of  data 

-  lack  of  abstraction  capabilities 

-  schema  not  easily  modifiable 

Tlie  object-oriented  database  management  systems  attempt  to  provide  facilities 
which  pennit  tlie  definition  of  any  structure  or  operation  rather  than  a  fixed  set.  Proper¬ 
ties  of  an  object-oriented  database  management  system  include: 

-  abstraction 

-  extensibility 

-  persistency 

-  active  data 

The  object-oriented  approach  was  selected  as  tlie  most  suitable  technology  for  the 
implementation  of  our  software  database  system.  Within  this  type  of  system  an  object  is 
considered  as  a  description  of  an  entity  in  some  application  domain.  It  may  be  a  simple 
atomic  representation  or  a  composite  stmeture.  An  object  has  a  unique  identifier  and  a 
set  of  operations  which  are  defined  for  that  object.  Objects  which  are  similar  ?re  grouped 
into  classes.  A  class  is  also  considered  as  an  object.  Class  hierarchy  and  inheritance  of 
properties  pennits  the  definition  of  subclasses  which  may  inherit  all  properties  of  the 
class  but  may  have  additional  local  properties. 

Vbase,  a  product  of  Ontologic  Inc.  was  selected  for  CAPS.  Vbase  runs  in  the  Unbt 
environnrent  on  Sun  workstations.  'Fhc  Vbase  system  consists  of  the  following 


components: 


-  tlic  Vbasc  D.itab.'isc  of  persistent  objects 

-  the  Type  Definiiion  L4mguage  (TDL)  provides  the  data  model  or 
conceptual  schema  for  applications 

-  a  C  Object  Processor  which  is  the  Vbase  data  manipulation  language 

-  an  Integrated  Tool  Set  (ITS) 

-  an  Object  SQL  which  is  the  query  facility  for  the  letrival  of  objects 

The  process  of  defining  a  typical  database  design  includes: 

-  define  the  objects 

-  define  the  properties  of  d>e  objects 

-  define  frequent  operations  performed  on  (Ejects 
•  describe  the  objects  and  their  properties  in  TDL 
<  compile  and  debug  the  TDL  definitions 

-  develop  COP  routines  which  implement  the  defined  operations 

-  compile  and  debug  the  COP  programs 

Galik  and  Douglas  successfully  implemented  Vbase  systems  for  the  storage  and 
retrieval  of  objects  in  the  software  base  and  Ihe  design  database. 


D.  FUTURE  INTEGRATION 

We  currently  divide  the  software  design  management  system  into  two  COP  com¬ 
ponents,  one  for  the  software  base  and  one  for  the  design  database.  The  puipoae  of  the 
design  database  and  the  interaction  between  the  designer  and  the  design  database  requires 
further  refinement.  This  process  has  not  been  extended  beyond  the  description  provided 
by  Douglas.  We  have  extended  and  refined  the  design  for  the  integration  of  the  software 
database  system  from  that  previously  described  by  Galik. 

The  software  design  management  system  for  Ada  components  and  the  Vbase  data¬ 
base  of  reusable  Ada  software  con^nents  should  reside  in  the  directory 
/caps/software_base.  The  softv.'ate  design  management  system  for  PSDL  prototype 
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spccificutions  suul  Jhc  Vb;isc  database  of  reusable  prototype  designs  should  reside  in  the 
directory  /caps/dcsign_tlatabase.  Tlie  implementation  defined  fUenanres  used  in  the 
feasibility  studies,  are  suitable  for  the  integration  which  we  have  currently  defiitcd.  Tltese 
files  should  exist  ns  temporary  data  components  with  lifetimes  based  on  their  applicabil¬ 
ity. 

'file  input  file  for  the  software  base  retrieval  is  currently  a  PSDL  specification  part 
and  the  output  is  an  Ada  component.  The  input  file  for  a  design  database  retrieval 
currently  contains  tlie  desired  properties  of  a  PSDL  description  and  the  output  is  a  com¬ 
plete  PSDL  description.  We  will  describe  tlie  interaction  of  the  software  design  manage¬ 
ment  .system  in  the  context  of  constructing  a  prototype  from  within  the  graphic  editor. 

When  a  designer  selects  the  graphic  editor  from  the  construction  menu  in  tlie  user 
interface,  both  the  user  interface  process  and  the  graphic  editor  process  remain  active. 
The  designer  may  describe  a  prototype  using  a  single  operator.  If  the  designer  wishes  to 
detemiine  if  a  reusable  Ada  component  already  exists  in  the  database  for  the  operator  just 
defined,  then  he  selects  the  search  button  in  the  graphic  editor.  The  search  function 
should  call  the  store  function  which  will  cause  a  file  NewNode.Ol  to  be  created  which  is  a 
PSDL  specification  for  the  operator.  The  search  function  should  make  a  copy  of  the 
PSDL  specification  into  the  file  PSDL_SPECS.  The  search  function  should  then  execute 
the  COP  program  which  represents  the  database  management  system  for  the  software 
base.  If  a  match  is  not  found  in  the  software  base,  then  the  search  function  should 
remove  the  temporary  file  PSDL_SPECS  and  cause  a  message  to  be  displayed  in  the  mes¬ 
sage  panel  which  states  that  a  match  was  not  found.  If  a  match  is  found,  then  that  reus¬ 
able  component  now  resides  in  the  file  SBJDUT  and  the  search  function  should  open  a 
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popup  window  which  overlays  tl)c  top  portion  of  the  graphic  editor.  This  window  should 
not  overlay  tl>c  niessage  panel  or  tlic  drawing  space.  If  a  single  match  was  found,  then  a 
statement  winch  reflects  that  ease  is  displayed  and  the  designer  is  given  an  option  to 
browse  the  component,  edit  the  compotKnt,  save  the  component  or  to  quit  the  search  pro¬ 
cess.  If  the  designer  chooses  to  browse  the  component,  then  the  command  more 
SBJOUT  is  automatically  executed  within  the  popup  window.  If  the  designer  chooses  to 
edit  the  component,  then  ideally  an  Ada  syntax  directed  editor  should  automatically  be 
executed  on  the  file  SBjDUT  within  the  popup  window.  If  the  designer  chooses  to  save 
the  component  then  the  modified  component  should  be  stored  so  that  the  designer  may 
choose  to  discard  it  or  add  it  to  the  software  base  during  the  quit  process  of  the  user  inter¬ 
face.  The  component  should  also  be  appended  to  the  file  SB_PACKAGE  which  will  be 
referenced  by  the  translator  during  the  txteute  process.  If  the  designer  chooses  to  quit 
the  search  process,  then  the  files  PSDL_SPEC  and  SBJ)VT  arc  removed  and  the  pop-up 
wirtdow  is  closed. 

The  designer  continues  the  construction  and  search  processes  until  a  complete  PSDL 
description  is  represented  by  a  tree  which  contains  Ada  components  at  all  of  its  leaves. 
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vm.  THE  TRANSLATOR 


A.  PREVIOUS  DESIGN 

Tlie  purpose  of  tire  translator  is  to  produce  an  Ada  translation  of  a  PSDL  prototype 
description.  The  translator  performs  lexical  analysis  of  the  internal  textual  representation 
of  a  PSDL  system  prototype,  parses  the  prototype  description  and  constructs  an  i^ract 
syntax  tree,  and  then  evaluates  the  attributes  of  the  tree  to  provide  an  Ada  representation 
which  utilizes  PSDL  abstract  data  types. 

An  Ada  translation  is  a  template  with  five  major  sections  derived  from  the  PSDL 
input  program: 

-  exception  declarations 

-  atomic  operator  driver  headers 

-  atomic  subprograms 

-  PSDL  operator  specification  packages 

-  PSDL  atomic  operator  driver  subprograms 

'Die  exception  declarations  define  tlic  PSDL_EXCEFriON  data  type  and  all  of  the 
PSDL  exceptions  which  may  be  raised  in  a  PSDL  program.  The  atomic  operator  driver 
headers  are  the  interfaces  for  the  subprogram  names  which  will  be  called  by  the  static 
and  dynamic  schedules.  The  atomic  subprograms  section  contains  all  of  the  atomic  level 
Ada  code  drawn  from  the  reusable  software  base  or  entered  by  the  designer  during  the 
construction  of  the  prototype.  The  PSDL  operator  specification  part  contains  Ada  pack¬ 
age  specifications  for  all  of  the  composite  PSDL  operator  specifications.  The  PSDL 
atomic  operator  drivers  are  Ada  subprograms  which  execute  the  atomic  subprograms  in 
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icnm  of  the  PSDL  conitol  constraints  specified  for  each  operator.  The  Ada  package  tem¬ 
plate  is  shown  in  Figure  8-1  [14]. 


package  TL  is 


type  PSDLi__EXCEPTXON  is  (psdl_«KcpI,  padljsxcp2« . . . ,  psdl.axcpN; 
«xcpl|  «xcp2,,..,  excpN  :  axesption; 


procadura  atomic__deiverl; 
pxocadura  atomic_jdrivac2; 

a  a  a 

procaduxa  acomic_drivarN; 
and  Tli; 

a 

with  PSDL_SYSTBH; 
usa  PSDL_SYSTEM; 

package  body  TL  is 

atomic  pcoceducea  drawn  from  the  software  base 

PSDL  operator  specification  packages 

PSDL  atomic  operator  driver  procedures 


end  TL; 


Figure  8-1.  TL  Package  Template 
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Tlw  PSDL  absimci  data  types  iinplcnKntcd  for  tltc  translator  are: 

-  data  strcains 

-  state  variables 

-  timers 

-  exceptions 

Tiiere  are  two  kinds  of  data  streams  in  PSDL:  sampled  streams  and  data  flow  streams.  A 
sampled  stretun  is  a  data  stream  which  has  a  persistent  data  value  until  it  is  overwritten 
with  another  value.  When  a  value  is  read  from  a  sampled  stream,  tiie  value  remains  on 
the  sampled  stream.  A  data  flow  stream  is  a  data  stream  which  may  only  be  written  if  the 
stream  is  empty  and  can  only  be  read  witen  a  value  exists  on  the  data  flow  stream.  Read¬ 
ing  the  value  of  tlx  data  flow  stream  consumes  the  value.  Data  streams  have  two  defined 
error  conditions,  BUFFER_UNDERFLOW  and  BUFFER^OVERFLOW.  The  first  error 
occurs  if  an  attempt  is  made  to  write  onto  a  data  flow  stream  which  has  a  value.  The 
second  error  occurs  if  an  attempt  is  made  to  reorl  an  uninitialized  sampled  stream  or  an 
empty  data  flow  stream.  Tlx  four  different  PSDL  constructs  which  declare  data  streams 
ore: 


-  input  attribute 

-  output  attribute 

-  states  attribute 

-  streams 

State  variables  are  data  streams  which  are  automatically  initialized. 

A  timer  is  a  built-in  data  type  which  behaves  as  a  simple  digital  stopwatch  used  to 

measure  elapsed  linxs.  Tlx  operations  available  on  timers  include: 

-start 

-stop 

-  read 
-reset 
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A  liiiKr  may  be  represented  by  a  stale  machine  which  has  three  slates  u  shown  in  Figure 
8-2  [14]. 


RESET  START  STOP 


Figure  8-2.  Timer  State  Machine 

The  read  operation  does  not  cause  any  change  of  state.  A  timer  may  be  read  at  any 
time  regardless  of  the  current  state.  The  value  returned  when  reading  a  timer  is  always 
the  amount  of  time  that  a  timer  has  spent  in  the  rui.  mg  slate  since  the  last  transition 
from  the  initial  state. 

PSDL  exceptions  are  special  data  types  which  may  be  written  to  any  data  stream 
without  regard  for  the  data  stream's  normal  data  type. 
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B.  PREVIOUS  IMPLEMENTATION 


Tljc  translator  is  comprised  of  two  main  modules:  the  Kodiyak  translator 
specification  and  the  Ada  package  which  imnlements  the  PSDL  abstract  data  types. 

Tlte  translator  specification  was  implemented  using  the  Kodiyak  translator  generator. 
Kodiyak  is  a  UNIX  based  tool  which  was  built  on  top  of  LEX  and  YACC.  A  Kodiyak 
prognun  has  three  distinct  parts.  'Fite  first  part  provides  tire  lexical  rules  for  the  source 
language,  The  second  part  provides  the  declarations  for  tlie  attributes  in  the  abstract  syn¬ 
tax.  Tire  third  pan  provides  the  attribute  equations  which  are  used  to  determine  the 
values  of  the  attributes  in  the  abstract  syntax  tree.  Four  passes  of  the  abstract  syntax  tree 
arc  performed.  A  pass  is  defined  as  a  traversal  from  top  to  bottom  or  from  bottom  to  top. 

Tlie  first  pass  is  a  depth-first  traversal  of  tire  tree  from  the  root.  Pass  one  collects  the 
following  information  for  each  node  in  the  tree: 

-  all  operator  ntunes  and  their  parent  names 

•  all  data  stream  inunes  and  wiietlier  tliey  are  sampled  or  data  flow  streams 

-  all  exceptions  declared  in  tlie  program 

The  second  pass  traverses  the  tree  from  the  leaves  back  to  the  root.  The  information 
detennined  for  each  node  during  pass  one  is  synthesized  up  to  the  root.  This  information 
is  collected  in  tlie  Kodiyak  data  stmeture  for  a  map.  Tlie  global  map  contains  tlie  contex¬ 
tual  data  of  the  PSDL  program. 

The  third  pass  routes  the  global  map  created  in  pass  two  back  down  the  tree  to  start 
the  translation  process.  Translation  occurs  at  each  node  in  the  tree.  The  translations  are 
to  strings  of  Ada  code.  Tlie  leaves  of  the  tree  inherit  the  Ada  translations. 
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Tl>e  founh  pass  collects  the  Ada  translations  from  the  leaves  of  the  tree  and  coo- 
stnicts  composition  groups  of  translated  Ada  code.  When  the  founh  pass  reaches  the  root 
of  the  tree,  then  all  the  translation  information  is  stored  in  the  root. 

C,  MODinCATIONS 

We  modified  the  design  described  by  Altizer  to  improve  the  efficiency  of  the  transla¬ 
tion  and  compilation  processes.  This  design  modification  has  not  been  implemented  at 
this  time.  The  user  interface  was  to  insen  the  actual  source  code  for  reusable  com¬ 
ponents  which  were  used  in  the  construction  process  into  the  Ada  translation.  It  has 
siiKe  been  realized  that  this  should  not  be  necessary.  The  reusable  con^Kxtenls  should 
have  source  views  and  executable  views.  The  designer  rruy  use  the  source  views  duriitg 
the  construction  phase  but  then  the  executable  views  should  be  formed  into  a  package 
which  will  be  linked  with  the  translator  when  the  fiiud  executaUe  prototype  is  created. 
The  package  of  reusable  con^ponents  should  have  a  unit  name,  such  as  SBJPACKAGEy 
and  the  translator  must  contain  an  Ada  WITH  SB^PACKAGE  statement.  This  means 
that  generic  reusable  con^ponents  are  instantiated  and  con^iled  when  selected  during  the 
construction  phase. 

We  also  modified  the  implementation  of  the  translator  to  require  and  recognize  the 
END  statement  which  brackets  the  PSDL  IMPLEMENTATION  ADA  statement.  'Diis 
was  necessary  due  to  the  design  modification  of  the  PSDL  language  which  we  described 
in  chapter  six. 
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D.  INTEGRATION 


Ttie  components  which  comprise  tire  tramlaior  are  contamed  in  the  directory 

/cftpsArsinsiator.  Tlrese  files  arc: 

iranslatork  korliyak  translator  specifications 

psdl  jtystem.a  A^da  implenrcntaiion  of  PSDL  abstract  data  types 

The  data  components  which  are  tised  as  input  to  the  translator  arxl  the  output  produced 

by  the  translator  are  stored  in  tlie  directory  /caps^rototypes.  These  files  are: 

psdl.txt  input 

tl.a  output 

llte  Kotiiyak  Compiler  resides  in  the  subdirectory  Kodiyak.  An  executable  trorrslator 
may  be  generated  with  kc  iranslator.k  in  the  subdirectory.  The  executable  translator  will 
have  the  file  name  translator.  The  executable  translator  must  be  moved  to  the  parent 
directory. 

The  on-line  manual  page  for  Kodiyak  is  located  at: 
/n/suns2/usr/suns2/man/manI/kodiyak.l 

Tlte  translator  specifications  and  tire  Ada  implementation  of  the  PSDL  data  types  are 
contained  in  Appendices  M  and  N. 
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IX.  THE  STATIC  SCHEDULER 


A.  PREVIOUS  DESIGN 

TI)c  purpose  of  tlic  static  scheduler  is  to  scticdule  the  PSDL  operators  in  a  prototype 
description  so  Uiat  the  tinK  constraints  are  satisfied  during  execution.  If  a  feasible 
sdtedule  exists,  then  the  static  scheduler  creates  an  Ada  program  which  controls  the  exe¬ 
cution  of  these  operators.  A  data  flow  diagram  for  the  static  scheduler  is  shown  in  Figure 
9-1. 
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‘Hw  Preprocessor  reads  an  internal  textual  PSDL  file  and  outputs  a  file  which  con¬ 
tains  a  list  of  all  composite  and  atomic  operators  with  their  relevant  characteristics  such 
as  their  timing  constraints  and  link  infomtation. 

Tlte  Decomposer  reads  tljc  output  of  the  preprocessor  and  creates  a  file  which  only 
contains  the  atomic  operators  and  iltcir  relevant  characteristics. 

Tilt  File^Processor  reads  the  file  of  atomic  operatore  and  creates  a  graph  structure 
which  represents  all  of  tlte  atomic  operators  with  critical  tinting  constraints.  It  also 
creates  a  file  which  lists  the  atomic  operators  without  critical  timing  constraints. 

Tlic  Topological_Sortcr  uses  tlie  graph  structure  created  by  the  File_Prccessor  to 
build  and  output  a  precedence  relationship  that  specifies  which  operators  must  complete 
their  execution  before  other  operators  may  start  executing.  This  precedence  relationship 
is  always  determined  but  is  only  used  by  some  of  the  scheduling  algorithms. 

The  Hamionic^lock-Buiidcr  calculates  lire  periodic  equivalents  of  the  sporadic 
operators  which  have  no  defined  periods.  Then  it  checks  if  a  harmonic  block  can  be 
found  for  a  single  processor.  If  a  hannonic  block  is  found  then  it  calculates  and  outputs  a 
harmonic  block  Icngtir. 

The  C)pcrators_ScheduIcr  uses  the  graph  structure,  the  precedence  list  and  the  har¬ 
monic  block  length  to  determine  if  a  feasible  schedule  exists.  If  a  schedule  is  feasible, 
one  of  six  scheduling  algorithms  may  be  used  to  build  a  schedule. 

Tlic  Exccption_HandIcr  manages  the  exceptions  which  pertain  to  critical  operators 
scheduled  by  the  static  scheduler. 
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The  static  scheduler  produces  two  outputs.  One  output  U  an  Ads  program  which 
contains  %  schedule  for  all  of  the  opeiators  in  a  software  system  pror;»\ype  with  critical 
timing  constraints.  The  other  output  is  the  file  which  contains  the  names  of  the  atomic 
operators  in  the  prototype  which  do  not  have  any  critical  timing  constraints. 

B.  IMPLEMENTATION 

The  static  scheduler  has  been  described  and  incrementally  implemented  by  Marlowe 
[15]  and  Kilic  [16].  The  static  scheduler  pteprocessor  was  in^emented  with  Kodiyak 
specifications.  The  details  of  the  Kodiyak  Con^ilcr  were  described  in  the  previous 
chapter.  The  output  of  the  preprocessor  wilt  be  processed  to  produce  an  output  which 
only  contains  atomic  operators.  An  examf^  of  the  atomic  operators  and  their 
corresponding  graph  structure  which  would  be  created  by  the  file  processor  are  shown  in 
Figure  9*2,  There  are  currently  three  of  six  scheduling  algorithms  implemented  in  the 
sialic  scheduler.  The  three  algorithms  which  have  been  implemented  are : 

^  the  harmonic  block  with  precedence  constraints  scheduling  algorithm 

-  the  earliest  start  scheduling  algorithm 

-  the  earliest  deadline  scheduling  algorithm 

The  three  scheduling  algorithms  which  remain  to  be  implemented  are: 

-  the  Axed  priorities  scheduling  algorithm 

*  the  mmimizc  maximum  tardiness  with  early  start  limes  scheduling  algorithm 

-  the  raie'monotonic  priority  assignment  scheduling  algorithm 

These  algorithms  are  explained  in  detail  by  Kilic.  He  implemented  the  static  scherhiler 
as  a  stand-alone  tool  which  required  modifications  when  integrated  into  CAPS.  The  pri¬ 
mary  capabilities  of  the  two  versions  remain  the  same. 


Ill 


ATOMIC 

LIMK 

OP_l 

a 

MET 

OP  1 

10 

0  ” 

DERZOD 

OP_2 

200 

LINK 

ATOMIC 

b 

OP_2 

C 

MET 

0 

10 

0P_3 

PERIOD 

LINK 

200 

d 

ATOMIC 

OP__3 

0  ” 

MET 

0?J, 

15 

LINK 

PERIOD 

c 

200 

UP  2 

ATOMIC 

0  “ 

OP_4 

CP__N 

MET 

15 

PERIOD 

200 

Figure  9-2.  Decomposer  Output  And  Graph  Structure 


C.  MODIFICATIONS 

Tlie  input  to  the  static  scheduler's  preprocessor  is  a  PSDL  prototype  description. 
Tlie  Kodiyak  specincatlons  for  the  preprocessor  were  modified  to  reflect  the  change  in 
the  PSDl.  grammar  described  in  chapter  six.  An  END  statement  is  required  to  bracket  an 
IMPLEMENTATION  ADA  statement. 

Tlie  Ada  implementations  were  modified  to  better  serve  the  purposes  of  an  integrated 
tool  within  CAPS.  An  algorithm  selection  menu  and  several  of  tlie  notification  messages 
were  removed.  The  current  design  of  the  static  scheduler  in  CAPS  which  interacts  with  a 
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designer  applies  the  different  scheduling  algorithnts  in  an  implementation  detained  order 
until  a  solution  is  found  or  until  all  algorithms  have  failed  to  produce  a  schedule. 

During  tlie  integration  and  testing  of  the  static  scheduler  three  major  areas  were 
identified  for  future  modifications.  The  first  is  to  develop  some  selection  mechanism 
which  matclres  the  prototype  design  to  an  optimal  scheduling  algorithm.  The  selection  of 
an  algoritlun  will  still  renuiin  transparent  to  the  desigiver,  but  should  become  nwre 
efficient  if  the  order  of  the  algoritluns  are  selected  more  intelligently.  The  second  is  that 
the  decomposer  module  still  remuns  to  be  implemented.  Another  area  of  future  work 
which  was  originally  identified  by  Marlowe  is  to  define  an  algorithm  and  implementation 
which  detennines  a  harmonic  block  length  for  multiple  processors. 


D.  INTEGRATION 

The  components  which  comprise  the  static  scheduler  are  contained  in  the  directory 
/ci^/static_scheduler.  These  files  are: 


decomposer_b'* 

-  validates  and  decomposes  output  of  preprocessor 

dccomposcr_s.a 

-  validates  and  decomposes  output  of  preprocessor 

driver.a 

-  interface  for  stand-alone  static  scheduler 

e_handlcr_b.a 

-  exception  routines  used  by  driver 

e_handler_s.a 

-  exception  routines  used  by  driver 

files.a 

-  global  types  and  declarations  for  all  ss  progranu 

fp_b.a 

-  file  processor 

fp_s.a 

-  file  processor 

graphs.b.a 

-  generic  type  grsjf^  structure 

gr{^_s.a 

-  generic  type  graph  structure 

hbb_b.a 

-  harmonic  block  builder 

hbb_s.a 

-  harmonic  block  builder 

kc 

-  script  to  compile  static  scheduler  preprocess  pre.ssJc 

pre_ss 

-  executable  preprocessor 

pre_8S.k 

-  kodiyak  specifications  for  preprocessor 

scheduler_b-a 

-  operators.scheduler 

scheduler.s.a 

-  operators_scheduler 
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scejucncc_b>a 

scqucncc_s.a 

sintic_schc(lulcr 

t_son_b*a 


-  generic  type  list  structure 

-  generic  type  list  structure 

-  executable  static_schcdulcr 

-  topological  sorter 

-  topological  sorter 


The  Korliyak  Compiler  resides  in  tire  subdirectory  /caps/static_scheduler/Kodiyalc. 
'rirc  preprocessor  is  gcncnited  by  compiling  with  kc  prejss.k  in  tire  Kodiyak  subdirec¬ 
tory.  Tire  executable  preprocessor  pre_ss  must  be  moved  to  tire  parent  directory 
/caps/static_schcdulcr. 


Tire  user  interface  executes  pre_ss  with  the  command  line  equivalent: 

prc^ss  <filc  name>  -o  opcrator.info 

Tire  Ada  components  of  the  static_scheduler  are  compiled  by: 

a.moke  siatic^sclieduler  -f  *.a  -o  static_scheduler 
( where  *.a  uses  all  files  listed  above  which  have  a  .a  suffix ) 

Tire  static_schcdulcr  is  executed  in  the  user  interface  by  tire  command  line  equivalent: 

static_schcduler 

files.a  is  dependent  upon: 
vstrings 
sequences 
graphs 

decomposcr_b.a,  dcconiposcr_s.a,  c_handler_b*a»  ejiantller_s.a, 
fp_b.a,  fp_s.a,  hbb_b.a,  hbb_s.a,  sclrcduler^b.a,  schcdulcr„s.a, 
t_sort_b.a,  t_sort_s.a  are  all  dependent  upon: 
files  (files.a) 

drivcr.a  is  dependent  upon 
decomposer  (dcc.omposer_b.a,  decomposcr_s.a) 
except  ionjiandler  (ejiandler_b.a,  ejiandler_s.a) 
filc_processor  (fp_b.a,  fip_s.a) 
hannonic_block_builder  (hbb_b.a,  hbb_s.a) 
operator_schcdulcr  (schcduler_b»a,  schcduler_s.a) 
topological_sortcr  (t_sort_b-a»  t_sort_s.a) 
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prc_ss  creates  opcrator.info 

decomposer  reads  opcrator.info  and  creates  atomic.info 
FiIc_proccssor  reads  atomic.info 
FUc_proccssor  creates  non_crits 
Opcrator_schcdulcr  creates  ss.a 

Tiic  components  which  comprise  the  static  scheduler  are  contained  in  Appendices  0 
through  AE. 
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X.  THE  DYNAMIC  SCHEDULER 


A.  PREVIOUS  DESIGN 

Tlie  purpose  of  the  dynontic  scheduler  was  to  coordinate  the  execution  of  all  opera¬ 
tors  and  their  debuggers  during  the  execution  of  a  prototype.  The  static  schedule,  the 
non-tinie-critical  operators  and  Ute  debugging  system  were  all  components  of  the 
dynamic  scheduler. 

B.  MODIFICATIONS 

There  was  not  any  previous  implementation  of  a  dynamic  scheduler.  The  previous 
design  of  the  dynamic  scheduler  has  been  modified  so  that  it  only  creates  a  schedule  for 
the  non-time-critical  operators  of  a  PSDL  prototype  description.  A  file  which  lists  these 
operators  is  provided  by  the  static  scheduler.  The  dynamic  scheduler  is  not  concerned 
with  the  activities  of  any  time-critical  operators  or  with  any  special  component  which 
represents  a  debugging  system.  This  modification  still  performs  the  functions  required 
and  provides  for  a  simplified  conceptual  model  of  the  execution  support  system.  The 
dynamic  schedule  executes  its  operators  in  a  sequential  manner  during  the  slack  times 
between  the  execution  of  time-critical  operators  controlled  by  the  static  schedule.  On  a 
.single  processor  each  non-timj-critical  operator  completes  its  execution  before  another 
non-time-critical  operator  is  started. 
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C.  INTEGRATION 


Ttie  component  which  comprises  the  dynamic  scheduler  is  located  in  the  directc.7 
/caps/dynamicj:clKdulcr,  The  file  is  dynamic^scheduler.t.  The  dynamic_scheduler  is 
invoked  by  the  user  interface  when  the  designer  selects  the  execute  option  in  the  main 
menu.  Tlie  dynantic  scheduler  reads  the  file  nonxrits  which  was  produced  by  the  sialic 
scheduler  and  creates  a  dynamic  schedule  which  is  placed  in  the  file  ds.a.  The  dynamic 
schedule,  static  schedule  and  Ada  translation  of  the  PSDL  prototype  are  all  compile  utd 
linked  into  an  executable  data  component  which  is  currently  called  prototype.  The 
dynamic  scheduler  is  contained  in  Apperxlix  AF. 
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XI.  THE  DEBUGGER 


A,  PREVIOUS  DESIGN 

Tlic  purpose  of  the  debugger  was  to  provide  run-time  support  for  the  execution  of 
prototypes.  The  debugger  was  designed  as  two  comportents:  one  for  the  static  scheduler 
and  one  for  the  dynamic  scheduler.  The  debugger  processed  errors  eficountered  by  either 
scheduler,  The  static  debugger  would  process  errors  while  attempting  to  create  a 
schedule  and  the  dynamic  debugger  would  process  errers  that  occurred  while  the  opera¬ 
tors  were  executing.  Both  debuggers  were  to  operate  in  a  similar  manner.  They  would 
report  an  error  contlition,  if  possible  correct  the  error,  then  permit  the  user  to  dictate 
whether  execution  should  continue  or  terminate.  All  information  relating  to  an  error 
would  also  be  written  to  a  file  for  recall. 

The  static  debugger  was  to  process  the  following  errors  [17]: 

-  MET.Not  LcssJThan^MRT 

-  MET_Not_Lessjrhan_Pcriod 

-  No^InitiaLLink^Op 

-No  Matches  Found 

-  MCP_NOT_Lcssjrhan_MRT 

-  MET_NoLUssjrhan_MCP 

-  No_B»sc JBlock 

-  Fail_Half_Pcriod 

-  BadJTotalJTime 

-  Ratio_Too3ig 

-  OvcrjTimc 

-  Invalid_Schcdulc 

-  Schcdule_Enor 

-  MET_Requiied 

-  MET_GT_Parcnt 

-  MET_Sum_GT_Paren{ 
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-  Crit_C)p_Lacks_MET 
-Crit_Op_Lacks_MET 

-  Exccsslvc_Constr»ints_Al«ered 


The  dynamic  debugger  was  intended  to  process  errors  identified  (kuring  nm-time  exe¬ 
cution  of  both  time  and  non-time  critical  operators.  These  enrots  were  [17]: 

"  Buffcr_Undcrflow 

-  Buffer^Overflow 

-  Ut^nxKessed^Exception 

-  IruufficieniJMET 

-  Er.cessive^Execution 

The  dynamic  debugger  was  to  provide  a  user  with  an  option  to  adjust  the  MET  of  an 
operator  without  terminating  the  execution  of  the  prototype  or  to  terminate  the  execution 
of  the  prototype. 


B.  PREVIOUS  IMPLEMENTATION 

The  previ'mis  implementation  consisted  of  two  Ada  programs.  The  in^mentation 
lacked  the  maturity  required  for  integration  into  CAPS.  The  leseaichen  involved  with 
the  parallel  development  of  the  static  scheduler  and  the  dynamic  scheduler,  Kilic  and 
Palazzo,  found  the  previous  design  and  in^Iemenlation  of  the  debugger  too  awkward  to 
integrate  with  their  tools.  The  previous  in^ementation  has  not  been  integrated  into 
CAPS  but  should  provide  guidatKe  in  the  design  of  the  static  and  dynamic  scheduien, 
and  consideration  in  a  more  complete  design  of  the  debugger. 
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c.  MODIFIC/VTIONS 


Tlic  design  nnd  implementation  of  tlx:  static  debugger  was  essentially  on  exception 
handler  tuul  was  panially  implemented  os  a  component  of  the  static  sclieduler.  The 
errors  identified  by  Wootl  which  were  not  implemented  in  the  current  static  scheduler 
require  further  evaluation  to  determine  their  relevance. 

Tiic  design  and  implementation  of  the  dynamic  debugger  essentially  provided  on 
interface  wlUi  the  user  to  adjust  the  MEfs  of  operators  which  fail  to  satisfy  their  time 
constraints.  Tlie  implcntentaiion  did  not  contain  any  ntechonism  for  actually  effecting 
this  change.  Tlie  effect  of  changing  the  MET  for  one  particular  operator  must  be  con¬ 
sidered  in  temis  of  tlie  static  schedule.  We  have  not  currently  detemiined  whether  or  not 
a  new  static  schedule  should  be  built  when  a  MET  is  changed  in  the  mn-time  debugger. 
We  also  suspect  that  arbitrarily  changing  a  MET  in  the  run-time  debugger  may  result  in  a 
prototype  design  which  might  not  have  a  feasible  static  schedule.  Possibly,  the  debugger 
should  evaluate  the  side  effects  which  will  result  in  changing  a  MET  and  establish  boun¬ 
daries  to  the  user.  Care  must  be  taken  to  ensure  that  the  user  is  not  allowed  to  modify  the 
prototype  design  in  the  run-time  debugger  thus  causing  the  prototype  to  self-destruct. 
These  issues  deserve  careful  consideration  in  the  further  design  of  a  run-time  debugger. 
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xn.  CONCLUSIONS  AND  RECOMMENDATIONS 


A.  CONCLUSIONS 

Our  research  has  contributed  towards  the  development  of  a  npid  prototyping 
language  and  a  rapid  prototyping  environment.  The  necessary  characteristics,  features, 
and  difficulties  with  the  deveIopn>ent  of  such  a  language  artd  environment  have  been 
refined  as  a  result  of  die  long  term  research  effort  which  this  thesis  describes  partially. 
The  support  towards  software  development  and  evolution  which  a  ri^id  prototyping 
environment  may  or  should  provide  and  some  of  the  important  issues  encountered  with 
its  development  have  also  been  better  defined. 

This  thesis  ie.<'earch  encorporated  tlie  fiist.attempt  to  assemble  the  previous  work  on 
individual  tools  into  one  integrated  environment.  This  required  a  topHiown  view  of  the 
environment  necessitating  a  much  more  comprehensive  understanding  of  the  major 
issues  of  a  rapid  prototyping  environment  than  is  required  for  a  bottom-up  view  of  a  par¬ 
ticular  tool.  As  the  integration  progressed  more  and  more  knowledge  of  the  design, 
structure  and  implementation  of  previously  developed  tools  and  knowledge  of  the  tech¬ 
nologies  used  in  their  implementation  was  required  to  enable  the  redesign,  partial  in^e- 
mentation  and  adaption  into  an  integrated  environment.  Our  current  state  of  implementa¬ 
tion  reflects  an  ability  to  work  in  or  understand  PSDL,  Ada,  C,  Pascal,  Unix,  Kodiyak, 
SSL  and  Sunview  Graphics.  Future  modifications  may  also  require  this  same  knowledge. 
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TIjc  ciirrcm  siaic  of  tlcvclopmcnt  suppoits  tin:  view  that  It  Is  inipoMiWe  to  com¬ 
pletely  state  the  rc(|uireiiKitts  of  a  system  In  advance  atul  tiiat  the  development  process 
Itself  changes  tite  perceptions  of  what  is  possible  or  necessary.  This  has  been  reflected  in 
previous  chapters.  'Fite  actual  developntent  of  die  tools  ami  tlie  environment  has  been 
perfonned  primarily  by  many  graduate  students  over  a  long  pcriorl  of  time.  Student  con¬ 
tributions  arc  constrained  to  relatively  short  time  periods.  Consequently,  the  design  of 
CAPS  has  continued  to  evolve  over  time  as  different  people  have  beconte  involved.  Tliis 
work  does  not  always  reflect  the  ideal  solution  to  a  particular  issue  or  implementation 
problem.  It  has  been  influenced  by  the  early  decision  to  pemtit  students  enough  latitude 
to  make  tlie  best  use  of  their  backgroumls  and  to  pennit  tlicm  to  explore  tlic  areas  which 
interest  them  most.  As  the  design  and  implementation  have  matured,  the  learning  curve 
associated  with  an  overall  understanding  of  tlie  environment  has  mcreased. 

Related  research  areas  currently  in  progress  at  the  Naval  Postgraduate  School  are: 

-  a  graph  model  for  software  maintenance 

-  automatic  merging  of  prototype  versions 

-  generation  of  a  CAPS  interface  with  X  windows 

-  prototype  analysis  and  scliedulc  matching 

-  survey  and  ev^uation  of  current  rapid  prototyping  processes 


B.  RECOMMENDATIONS 

Version  control  for  our  implementations  is  currently  performed  manually.  The  pre¬ 
vious  lack  of  proper  documentation  and  version  control  created  significant  difficulties 
during  the  initial  stage  of  our  integration.  Previous  incorrect  versions  of  many  of  tlie 
implementations  described  in  this  thesis  exist  outside  of  the  configuration  used  here.  In 
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many  ca^cs,  Uie  impIenKmaiions  used  in  our  integration  are  the  only  correct  venions 
which  exist  on  our  sysicnt. 

For  evolution  purposes  implementation  path  names  have  been  ^Kcihed  hilly  so  that 
a  new  installation  or  a  change  in  the  system  configuration  may  be  effected  by  making 
global  substitutions  of  the  old  system  path  names  with  the  new  system  path  names.  Sys¬ 
tem  dependent  or  configuration  dependent  path  names  exist  in  the  following  files: 

-caps.c 

-graph.c 

-nodes.p 

-gc 

"  fp_b'» 

-  scheduler.b.a 

-  dynamic_scheduler.a 

Significant  foUow-on  research  is  lequire^l  in  the  areas  of  view  consisteiKy,  reusabil*^ 
ity,  and  mn-time  debugging.  These  issues  and  additional  areas  have  been  defined  in 
greater  detail  within  iqpplicable  chapters. 
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APPENDIX  A  PSDL  GRAMMAR 


Optional  itcim  are  enclosed  in  [  square  brackeis  ].  Iienvs  which  may  appear  zero  or 
more  rimes  appear  in  (  braces  ).  Temrinal  synrbols  appear  in  **  double  quotes  Group¬ 
ings  appear  in  ( parentheses ). 


psdl 

"  (coRiponenc) 

component 

••  data_fcype 
t  operator 

daca__type 

••  "type"  id  type^apec  type__impX 


operator 

••  "operator"  id  operator^apec  operator^impl 


typa^apec 

*•  "apeciiication  (typejdecll  {"operator"  id  operatoc__apec) 
(functionaiity]  "end" 

typo__lmpl 

-  "implementation  ada"  id  text  ")"  "end" 

I  "implementation"  type__name  ("operator"  id  operator^impl)  "end" 
opecator___3pec 

-  "specification"  (interface)  (functionality)  "end" 


operator_^impl 

-  "implementation  ada"  id  "("  text  ")"  "end" 
I  "implementation"  p3dl__impl 


type__docl 

••  id__li3t  type__nBme  (","  id_li3t  type_name) 
functionality 

-  (keywords]  (informal^desc)  (formal  deac] 
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p3dil__lnipl 

M  dat:a__flow_di«gi:»fft  (atreana)  {tiiaara]  (control^conatrainta] 
(in£ormal_d«sc]  "and" 

typ«__na«»« 

••  id 

1  id  •*  ( "  typajdecl  "  J  ■ 
interface 

••  attribute  (rec|mta_trace] 


id^list 

-  id  id) 


keyworda 

••  "keyworda"  id_liat 
inforiMl_d«ac 

••  "deacription"  "("  text  •)" 
formal_deac 

-  "axiocna"  "("  text  ")■ 

data__flow__di.agram 

-  "graph"  link  (link) 


atraama 

-  "data  atream"  bype_decl 


timera 

••  "timer"  id  liat 


attribute 

«  input 
I  output 
I  g«neric_parain 
I  atatea 
I  cxceptiona 
I  timing_info 

input 

"input"  type__decl 

output 

-  "output"  type_decl 

generic_pariun 

"generic"  type_dacl 


atatea 

-  "atatea"  type_decl  "initially"  expreaaion^llat 
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exeopticna 

«  "oxceptiona"  id__liat 
timing_info 

"  t "ntaximum  exacution  tim«"  tima]  {"minimum  calling  paciod"  bima] 
{"maximam  roaponaa  bima"  bima] 

retimb3_brace 

<"  "by  raquiramanba"  id_liab 


link 

-  id  id  bima]  id 

conbrol^conabcainba 

••  "conbrol  conabrainbo"  conabrainb  (conabrainb) 

conacrainb 

••  "cperabOE"  id 

("bciggeEcd"  (bciggar  |  (briggar]  "i£"  pEadlcaba)  [raqmba^tcaca] ] 
("period"  bima  (Eaqmba__btaca5 ] 

("finiah  Mibhin"  bima  (recpnba^bEace] ] 

( conabcainb^opciona ) 


bciggar 

«  "by  all"  id__liab 
I  "by  aoma"  id^liab 

conabrainb_opbion3 

■  "oubpub"  id__liab  "i£"  pradicabe  (reqmba^braca) 
I  "axcapbion"  id  ("if"  pcadicaba]  (raqmba^braca] 
I  blmar__op  id  ("if"  pcadicaba]  [req;mb8_braca] 


bimar_op 

••  "raad  bimer" 

I  "reaab  bimac" 

I  "abarb  bimer" 

I  "abop  bimar" 

axpceaaion__li3b 

••  expreaaion  (","  axpreaaion] 

bima 

inbeger  (unit] 

unit 

■  "ma" 

I  "aec" 

1  "min" 

I  "hour a" 
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expreaaion 

"  constant 
I  id 

I  type_n»m«  id  •xpt*jsion_li«t  ")" 
predicate 

•«  9impie_expreaaion 

I  ai]nple_expre8aion  rel_op  8imple_^expcesaion 

3imple_expceaaion 

(aign]  integer  [unit] 

I  [sign]  real 
1  ("not")  id 
I  string 

I  ("not")  "("  predicate  ")" 

I  ("not")  boolean__con8tant 


booljop 

m  "and" 

I  «or" 

rel_op 

”  m  "<" 

I  "<-" 

I  ">" 

I  ">«" 

I  "m" 

I  "/-" 

I 

real 

••  integer  integer 
integer 

-•  digit  (digit) 

boolean__conatant 
«•  "true" 

I  "false" 

numeric_constant 
■>  real 
I  integer 

constant 

nuinberic_constant 
I  boolean_con8tant 
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algn 

«  "+" 


chac 

-  any  printable  character  except 

digit 

-  "0  ..  9" 

letter 

•»  "a  . .  x" 

1  "A  ..  Z" 


alpha_nuinberic 
letter 
I  digit 

id 

"  letter  ( alpha-numeric J 

atring 

-  """  (char)  """ 

text 

■*  (char) 
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APPENDIX  B  USER  INTERFACE 


FILE:  capa.c 
AUTHOR:  L«ura  J.  Mhit« 

DATE:  29  Dqc«?^QS  69 

PURPOSE:  CAPS  -  User  Interface 

A4^**A****AA*A***A4*A**AAA**A*A*A^AAA*A*****<kAAA**<^AA*AAA*4*AA^A*****Aa****/ 

linclude  <stdio.h> 
iinclude  <sy3/£ile.h> 

#inc]ude  <3y3/wait.h> 
linclude  <3ignal.h> 


/*  system  dependent  pathnames  */ 


idefine 

fdefine 

Idefine 

Idefine 

Idefine 

Idefine 

Idefine 

Idefine 

Idefine 

Idefine 

Idefine 

Idefine 

Idefine 

Idefine 

Idefine 

Idefine 

Idefine 


SERVER 

SHELL 

R_SHELL 

TEXT_riLE 

adaJcohpiler 

GRAPHIC_EDITOR 

SDE  ” 

LOCAL_MANUAL 

R£MOTE_MANUAL 

TRANSISTOR 

DYNAMIC 

STATIC 

PRE__SS 

PSDL_COMPOSlTES 
PSDL~ATOMICS 
PROTOTYPE 
MV  TL  HORK 


Idefine  MV_TL_HOME 
Idefine  MV_SS_HORK 
Idefine  MV__SS_HOME 
Idefine  MV_DS_HORK 
Idefine  MV  DS  HOME 


"3un32" 

"/bin/csh" 

''/n/sun82/usr/ucb/rsh" 

"/n/auns2/Mor)c/capa/prototypea/psdl.txt'' 

"/n/3un32/u8r/aun82/VADS/bin/a.B«i)te" 

■/n/8un82/Mor)c/cap8/graphio__editor/ge" 

"/n/8un82/work/cap8/8yntax__editor/pev" 

■man  pe" 

"rah  8un82  man  pe" 

"/n/8una2/work/capa/tran8lator/tran8lator" 

"/n/aun82/work/cap8/dynamic__8Chedulex/dynamic_,scheduler* 

"/n/8uns2/work/cap8/atatic_8cheduler/8tatic^scheduIer" 

"/n/8uns2/work/cap8/8tatic_8cheduler/pre_s8" 

" /n/8un82/work/cap8/prototype8/operator .info" 

"/n/8un82/work/cap8/prototype8/atomio.info" 

"/n/3un82/work/cap8/prototype8/prototype" 

■mv  /n/8un82/Mork/capa/prototypes/tl.B  \ 
/n/auna2/Mork/cap8/tl.a" 

"mv  /n/8uns2/work/cap8/tl.a  \ 

/n/sun82/vork/caps/prototype8/tl.a" 

"mv  /n/aun32/work/cap8/prototype8/88.a  \ 

/n/ aun82/work/cap8/88 . a" 

"mv  /n/auns2/work/cap8/88.a  \ 

/n/sun82/work/cap8/prototype8/88 . a" 

"mv  /n/3un82/work/capa/prototypea/da.a  \ 
/n/auns2/work/cap8/d8 . a" 

"mv  /n/suns2/work/caps/d8 .a  \ 

/n/sun82/work/cap8/prototypea/d8.a" 


union  wait  status; 
int  code; 
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main  (} 

function:  Wain  menu  for  CAPS 

OaUo;  9  Way  89 

Called  By:  command  line 

Calla:  conatrucbO,  execute  (),  modify  () 

Side  Effecta:  int  code 


char  choice; 

char  carriage^return; 

int  oap3__done  «  0; 


) 


while  ( I  cap3__done)  { 

3y3tem("cleat") ; 

fprintf (atdout, "\n\n\n\n\n”) ; 

fprintf  (atdout,  "  COMPUTER  AIDED  PROTOTTPIHO  STSTEM\n")  ,* 

fprintf (atdout, "\n\n") ; 

fprintf  (atdout, "  (c) onatructXn") ; 

fprintf (atdout, "  (e) xecute\n") ; 

fprintf  (atdout, "  (m) odify\n") ; 


fprintf (atdout, " 
fprintf (atdout, "\n") ; 
fprintf  (3tdout^ " 


{q)uit\n") ; 
Select  Option:  "); 


facanf  (atdin/ "%c"/ fichoice) ; 
facanf  (atdin, "%c", ficarriage^return) ; 
awitch  (choice)  { 
caae  * c*  : 

construct () ; 
brea)c; 
caae  ' e' : 

execute () ; 
brea)c; 
caae  ^m' : 

modify  () ; 
break; 
caae  'q'  : 

cap3__done++; 

break; 

default: 

fprintf (atdout,  "\n 
sleep (3) ; 
break; 


Invalid  ChoiceXn"); 


) 

system ("clear") ; 
exit  (0) ; 
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Int  construct () 


construct  selsction  £rom  caps  Main  laanu 

submenu  for  graphic_editor  or  syntax  diractad  adltor 

6  May  1989 

mainO 

£lXa  /capa/graphic__aditor/ga 
syntax_editor (} 
int  code 

file  /caps/prototypes/psdl.txt 
file  /caps/prototypas/graph.pio 
file  /caps/prototypas/graph. links 
file  /caps/prototypas/psdl.da 
files  /caps/prototypes/MewNode.XX 


char  editor; 

char  carriage_return; 

int  construct  done  ••  0; 


Function: 

Date: 

Called  By: 
Calls: 

Side  Effects: 


while  (tconstruct_done)  ( 
system ("clear") ; 
fprintf (stdout/ "\n\n\n\n 
fprintf (stdoutf " 
fprintf (stdout/ " 
fprintf (stdout/ " 
fprintf (stdout/ "\n 


COHSTROCT  MOOE\n\n") ; 
(g)raphic  editor\n") ; 

(s)yntax  diractad  aditor\n"); 
(r)aturn  to  main  manuXn"); 
Salact  Option:  ") ; 


fscanf (stdin/ "%c"/ (editor) ; 
fscanf  (stdin/  "%c"/  (carriage__raturn) ; 
switch  (editor)  ( 
case  'g' : 

3y3tem("clear") ; 
if  (forkO  —  0)  ( 

code-execl  (SHELL/ SHELD/  "-f"/CRAFHIC__EDITOR/  0)  ; 
exit (code) ; 


) 

wait ((status) ; 
break; 
case  '  s' : 

syntBx_aditor () ; 
break; 
case  ' r' : 

const  ruct__done++; 
break; 
default: 

fprinti ^stdout/ "\n  Invalid  Choice\n"); 

sleep (3) ; 

break; 


) 


) 
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int  execute  0 

execute  selection  from  caps  main  menu 
29  Dec  89 
mainO 

program  /caps/tranalator/tranalator 
program  /capa/atatic_^acheduler/pre^aa 
program  /cap3/3tatic_3cheduler/static_^acheduler 
program  /capa/dynamic_,acheduler/dynamic^schedulec 
file  /capa/prototypea/padl_tl.a  ” 

file  /capa/pcototypea/operatoc. info 
file  /capa/prototypea/aa.a 
file  /capa/prototypea/non_crita 
file  /capa/prototypea/da.a 


char  hsatname(32] ; 
int  check__prototype; 

ayatem("clear") ; 

/*  check  for  source  file  from  the  graphic  editor  or  syntax  directed 
editor  which  represents  current  prototype  design  */ 
if  ( (oheck__prototype  ••  open  {TEXT__riLE,  0__W>0MLy,  0) )  -1)  ( 

fprintf (stdout, "\nNo  Completed  Prototype  Xvailable\n") ; 
sleep (3) ; 
return  0; 

) 

close (checkjprototype) ; 

fprintf (stdout< "NnTranslating  . . .\n") ; 
if  (fotkO  —  0)  ( 

code-execl (TRANSLATOR,  TRANSLATOR,  TEXT__riLE,  "-o", 
PSDLjrL_HOME,  0)  ; 

exit (code) ; 

) 

wait ((status) ; 

fprintf (stdout, "\nBuilding  Static  Schedule  ...\n"); 
if  (forkO  —  0)  ( 

code-execl  (PRE__SS,  PRE__SS,  TEXT_riLE,  "-o", 

PSDL_COMPOSlTES,  0); 

exit (code) ; 

) 

wait ((status) ; 

if  (forkO  —  0)  ( 

code-execl (STATIC,  STATIC,  0) ; 
exit (code) ; 

) 

wait ((status) ; 


Function: 

Date: 

Called  Dy: 
Calls: 


Side  Effects: 
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fprint£(3tdout,"\nBuildin9  Dynamic  Schadui® 
if  (fockO  —  0)  { 

code-«xttci (DYNAHXC,  DXHAMZC,  0); 
exit (code) ; 

I 

wait ((status) ; 

system  (MV JTLJfORK)  ; 
system  (KV~DSJfORK)  ; 
system  (Mv“ssjfORK)  ; 

gethostname  (hostnasw, sixeof  (hostnasw) ) ; 
if  ( I strcmp (hostname, SERVER) )  ( 

if  (fotkO  —  OJ  ( 

COde«^xeol(A0X_C0HRZLER,  AOR_CQHrZLER, 

'*static_schedule",  "-f",  "tl.a",  "ds.a",  "ss.a", 
"-0",  rROTOTfFE,  0); 

exit (code) ; 

) 

) 

else  ( 

if  (forkO  —  0)  ( 

code-execl (R_SHEIiIi,  R^SHELL,  SERVER,  "a.iaake”, 

"static_schedule",  "-f",  "tl.a",  "ds.a",  "ss.a", 
"-0",  PROTOTYPE,  0); 

exit (code) ; 

) 

) 

fprintf  (stdout,  "\nCompiling  . .  An")  ,* 
wait  ((status) ; 

system  (MV_TL_H0HE) ,“ 
system  (MV_DS_H0HE)  ; 
system  (MV~Ss”hOME)  ; 

/"  execute  */ 

signal (SZGZNT,  SZG^ZGN) ; 

fpcintf (stdout, "VnExecuting  . . . \n") ; 

sleep (1) ; 

system("clear") ; 

if  (forkO  —  0)  ( 

signal  (SZGZNT,  SZG_Drz.) ; 
codo-execl (PROTOTYPE,  PROTOTYPE,  0); 
exit  (code) ; 

) 

wait  ((status) ; 

fprintf (stdout, "\nExecution  Completed\n") ; 
sleep (3) ; 

signal  (SZGZNT,  SIGJJFIi) ; 
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Inc  modify  0 

Function: 

Date: 

Called  Qy: 

Calls: 

Side  Effects: 

A*i^A#««AA*AI«AAAA 


modify  selection  from  caps  main  menu 

C  Hay  89 

main  () 

none 

none 


( 

fprintf {3tdout,"\n  Modifications  in  progcesaXn") ; 

sleep (3) ; 

) 
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Int  3yntax__editor  (} 


runction: 

Oat«: 

Called  By: 


syntax  directed  editor  option  £ro«  construct  subiaanu 
6  May  89 
construct  () 


Calls:  none 

Side  Effects:  file  /caps/prototypes/psdl.txt 


char  text; 

char  hostname (32] ; 

char  carriage_return; 


system ("clear") ; 
fprintf (stdout,  "\n\n\n 
fprintf (stdout, " 
fprintf (stdout, " 
fprintf (stdout/ " 
fprintf (stdout, "\n") ; 
fprintf  (stdout,"  Select  Option: 

fscanf (stdin, "%c", (text) ; 
fscanf (atdin, "%c", ficarriage_return) ; 
if  (text  'y')  ( 
ayatem("clear") ; 

gethostname (hostname, sizeof (hostname) ) ; 
if  ( Istrcmp (hostname, SERVER) ) 
system  (UX:al_MRMUAL)  ; 

else 

system (REMOTE^MAMUAL) ; 


SYHTAX  DIRECTED  EDITOR\n\n\n") } 
Do  you  desire  instructions\n") ; 
(y)ea\n") ; 

(n)o\n") ; 


) 

if 


(text  ■  'y')  { 

fprintf (stdout, "\n\nBreaa  Carriage  Return  to  Continue 
fscanf (stdin, "%c", Ccarriage_return) ; 


•); 


) 

syatem("clear") ; 
if  (forkO  —  0)  ( 

code»execl (SDE,  SDE,  0); 
exit (code) ; 

) 

wait  ((status) ; 

3y3tem("mv  psdl.bxt  /n/8uns2/work/caps/prototype8") ; 


APPENDIX  C  SHELL  SCRIPT  FOR  GRAPHIC  EDITOR 


I - - - 

i  rile;  ge 

I  Purpose:  shell  to  tun  the  graphic  editor  -  directs  input  and  output 
i  Author:  laura  white 
f  Date:  17  dec  1989 

I - 

/n/3un32/Mork/cap3/graphic__editor/gtaph 

/n/3un32/Mor)c/cap3/graphic_editor/nodes  <  /n/3uns2/work/cap3/prototype3\ 
/graph. links 

cat  /n/auns2/work/cap3/prototypes/graph. links  /n/aun32/work/caps\ 
/prototypes/padl.ds  »  /n/3una2/work/cap3/prototype3/p3dl.iinp 
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APPENDIX  D  GRAPHIC  EDITOR 


. . . . 

PROGIIAM:  GRAPH. C 

AUTHORS;  ROGER  K.  THORSTEH 
LAURA  a.  WHITE 
DATE:  10  Novembac  1988 


/ 


/•  compile  this  program  with  "mekid  graph. c*  •/ 
lifdef  MAKZD 
static  char 
*makidt]  "  I 

"8(M}cc  -g  graph. c  -o  graph  -Im  -launtool  -launwindow  -Ipixrect" 

); 

fendif 


linclude  <atdio.h> 
f include  <auntool/aunview.h> 
linclude  <3untool/canvaa.h> 
linclude  <suntool/panel.h> 
linclude  <suntool/seln.h> 
linclude  <inath.h> 

linclude  <string.h>  ^ 

linclude  <ctype.h> 


/*  system  dependent 
Idefine  ICON 
Idefine  PRINT 
Idefine  SERVERl 
Idefine  SERVER2 
Idefine  SERVERS 
Idefine  SERVERl 


names  *'/ 

"/n/suns2/work/caps/graphic_editor/editor.icon" 
"screendump  1  rah  virgo  Ipr  -Pssl  -v  " 

"virgo" 

"sun82" 

"libra" 

"taurus" 


/*  define  constants  for  the  editing  modes  "/ 

Idefine  OPERATOR  0 
Idefine  DATA_rLON  1 
Idefine  SELr_LOOP  2 
Idefine  INPUT  3 

Idefine  OUTPUT  4 
Idefine  EXTERNAL  5 

Idefine  PI  3.141592654 

/"  the  display  width  */ 
/*  the  display  height  */ 


Idefine  DISP_HIDTH  142 
Idefine  DISp”ht  55 
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Idefinc  ARRO«_LE»CTH  9 
Idafine  TEXtJmaX_LEH  35 
fdefine  T1He“max“leH  10 


/*  langth  o£  th«  arrow  h«ad 
langth  o£  naawi  which  ia  viaibla 
/*  length  o£  the  tiims  which  ia  viaible 


♦define  PROXXMm  25 


static  short  editoc_,icon  ( ]  •*  ( 
♦include  XCOM 

I; 


/A  import  predefined  editor  icon  */ 


DEriME_XCOM_rROM_lMAGE  (editor,  edifeoc_,icon)  ; 


Frame 

Panel 


frame; 


/*  define  the  handle  for  the  frame  */ 


mousejpanel,  /*  defines  the  handle  for  the  mouae  interface  panel 
opjmodejpanel,  /*  define  the  handle  for  the  op  mode  selection  panel 


edit_modejpanel, 
timejpanel, 
name_panel, 
message^anel; 


/*  define  the  handle  for  the  aide  panel 
/*  define  the  handle  for  the  time  panel 
/*  define  the  handle  for  the  name  reading  panel 
/*  define  t'^e  handle  for  the  message  panel*/ 


'  ( 
*/ 

•/ 

•/ 

*/ 


Canvas 

Event 


drawing^canvas; 
•event; 

Pixfont  *bold; 

Pixwin  •drawingjjw; 

server  •»  0; 
edit_mode; 


int 

int 

int 


/•  define  the  handle  for  the  drawing  canvas 
/•  define  the  handle  for  events 
/*  define  the  handle  for  the  borders 
/•  define  the  handle  for  the  drawing  pixwin 
/•  gloabal  -  flag  for  server/diskless  aun 
/*  global  -  stores  the  current  edit  mode 


•/ 

•/ 

V 


*/ 

•/ 


name_^checked  "  0, 
time__checked  ••  0; 


/*  global  -  signals  that  naate  is  valid 
/*  global  -  signals  that  time  is  valid 


•/ 

*/ 


int 


graph_aaved  ••0; 


/*  global  -*  signals  whether  or  not 
the  graph  has  been  saved 


Panel_item  object__nBme, 
message, 

time  constraint; 


/*  handle  for  the  name 
/*  handle  for  the  mag 
/*  handle  for  the  time 


V 

*/ 

*/ 


char 


*tmp__buf, 

*tmp_bufl; 


/*  global  -  buffer  to  read  the  name  into 
/•  global  -  buffer  to  read  the  time  constraint  into 


*/ 


FILE 


*g; 


/*  define  the  PSDL  link  statement  file  */ 


typedef  struct  { 
int  length; 


/*  the  number  of  characters  in  the  name  */ 
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chsc  9tcir«g(80]; 
IHamCfTimc; 


/*  array  to  hold  tha  na«a  or  ti«a  atrin^  •/ 


typedef  struct  line( 


Name 

*nanve; 

/*  nsM  of  line 

int 

Intype; 

/*  identifies  the  type  of  line  it  is 

int 

xstart; 

/* 

the  x  coord  of  the  lines  starting  posit 

int 

ystart; 

/• 

the  y  coord  of  the  lines  starting  posit 

int 

xstop; 

/•  X  coord  of  its  stopping  posit 

int 

ystop; 

/*  y  coord  of  its  stopping  posit 

Name 

‘dost; 

/*  operator  that  the  line  tenainates  at 

struct  line  *next; 

/*  pointer  to  the  next,  line  from  thi<;  operator 

atoraa  output  and  data  flow  llnaa  '*/ 

•/ 


•/ 

V 

•/ 

•/ 

•/ 

•/ 


)Line; 


typ«d«£  struct  oparator( 
HajM  *nas>«; 
int  optypa; 
int  rstart; 
int  ystart; 
int  xstop; 
int  ystop; 

Ti»a  ‘tiisa^^^conat; 

Lina  'haad; 
liina  *taii; 
struct  oparator  *naxt; 
) Operator; 


/*  storage  stuctura  for  tha  operators  and  inputs  */ 

/•  operator's  nSM  •/ 
/*  identifies  contents  as  an  oparator  or  external  */ 
/*  X  coord  where  operator  should  start  to  be  drawn  */ 

/*  y  coord  where  operator  should  start  to  be  drawn  */ 

/*  X  coord  of  the  operator's  opposite  corner  */ 

/*  y  coord  of  the  operator's  opposite  corner  */ 

/*  swxinuia  execution  tiste  for  the  operator  */ 
/«  head  of  the  operator's  output  list  */ 
tail  of  the  operator's  output  list  V 
pointer  to  next  operator  in  list  */ 


typedef  struct ( 

Operator  *head; 
Operator  *tail; 
)Operator__list; 


/*  the  list  for  operators  and  inputs  */ 
/*  pointer  to  the  head  of  the  list  */ 
/*  pointer  to  the  tail  of  the  list  */ 


Operator_list  operator__list; 
Operator_list  ‘op^list  -  «operator_list; 
Operator  ‘op,  “sop/  *dop; 


Hame 

Hasie 

Tisie 

Line 


name^pointer; 

*nane  ■*  Cnasiejpointer; 


•tc; 


''In; 


/*  forward  declarations  of  functions  */ 
static  Motify^value  process__canvas_evencs () ; 

static  Motify__value  iaode_3elect  ()  ; 

Operator  •alloc_operator () ; 

Operator  *pic)c_operator  () ; 

Operator  *creahe_op () ; 

Lino  *alloc_line {) ; 

Line  *pick_lins () ; 


m 


liine  »cee»te_lini() ; 

Hama  'external (} , 

Hame  *get_^name  () ; 

Time  *gefc__bime_conac  ()  ; 

inc  i3_opjpick  0 ; 

int  i3_linejpic)«:  t ) ; 

int  i3_,valid_«da__id() ; 

int  i3__v*lid_time_con3t  0 ; 

int  appcnd_to_op_,li3t  (J 

int  get__h08tnam«  () ; 

int  qnxtjpcocO; 

int  load__proc() ; 

int  dump_3CEeen() ; 

int  3eaEch(}; 

int  compose (); 

int  decompose {); 

int  storejprooO ; 

int  out^of^memO ; 

int  input_text  () ; 

int  input_time  0 ; 

int  appen»i_,lin«_to_op()  / 

int  i3__op_j)ick  0 ; 

int  i3_inpub_pick() ; 

int  pEOce3s_opecatOE() ; 

int  pEoces3_line() ; 

int  EubbeE__b«nd() ; 

int  Eedr»w_diagEam() ; 

int  delete_line 0 ; 

int  dolete__op{) ; 

int  delete_input_line3 () ; 

int  display_erEOE_msg 0 ; 

int  display^naroe 0 ; 

int  display__tc() ; 

int  draw_aEEOwhead() ; 

int  draH__object  0  ; 

int  CEeate_PSDb() ; 

int  3tcEe_diagEam() ; 
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main(argCf  atgv) 
int  argc; 
chac  ‘‘acgy; 

. . . . . 

function:  Sata  up  graphic  aditoc 

called  by:  CAPS  User  Interface 
calls:  create__mou3ejpanel  0 

creata_operating__nK>de_j?anel  () 
create_editing_modejpanel () 
create_nainejpanel  0 
create_tiin«jpanel  () 
create jnessagejpanel  () 


{ 

get_hostnaine  ()  ; 

/*  cause  borders  to  highlight  if  region  entered  */ 

bold  »  pf_open("/usr/lib/fonts/fixedwidthfonts/screen.b.l2") ; 

if  (bold  «  HULL)  exit (1) ; 


/*  create  the  outer  display  frame  */ 
frame  »  window_create (MULL, FRAME, 
FRAME_LABEL, 

FRAME^ICOH, 

FRAMEJkRGS, 

MIM_ERROR_MSG, 

MIHJC, 

M1N~X, 

H1M~R0HS, 

MIN~ COLUMMS, 

0);” 


"CAPS  -  GRAPHIC  EDITOR", 

Seditor, 

argc,  argv, 

"can't  create  window,", 
2, 

1/ 

DISP^HT, 

DISPJNIDTH, 


/"  create  mousejpanel  "/ 

mouae__panel  window_create  (frame,  PAHEL,  NIH_rONT  ,  bold,  0) ; 
create_BX)uae^jpanel  () ; 


/*  create  op_raodejpanel  */ 

op_mode_panel  window_create  (frame,  PANEL,  N1N__F0NT  ,  bold,  0) ; 

create_operating_modejpanel () ; 


/"  create  editing  mode  panel  */ 

adit_modejpanel  -  window__create  (fraiae,  PANEL,  NTH_FOHT,  bold,  0) ; 
create^editing_raode_panel () ; 


/*  create  panel  to  read  object  names  */ 

name_panel  >•  window^create (frame,  PANEL,  NIN_rONT,  bold,  0) ; 
oreate_name__panel  () ; 


/*  create  panel  to  read  operator  time  constraints  */ 
time_panel  window_create (frame,  PANEL,  NIN_rONT,  bold,  0) ; 
create_time_j?anel  () ; 


/ 
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I*  create  mcaangcjpanel  */ 

me33age_panel  ■  window__crcate  (frame/  PANE^/  »fIH_rOKT/  bold,  0)  ? 
croate_mc3aagej?anel() ; 

/*  create  canvas  to  draw  on  */ 

draving_canvaa  ••  vindow_oreate  (frame/  CAHVAS/  Y(ZN_rONT/  bold/ 

ilH_CONSUMB__KBD_EVEHX/  HIh”aSCII_EVEMTS/ 
HIN__EVENT_PROC/  ptocesa__canvaa_ev«nta/ 
CANVAS_RETAINED/  TRUE/  0);  " 

/*  cause  drag  events  to  be  accepted  */ 

Hindow_aet(dtaving__canva3/HIH_C0NSUME_PICK_EVEHT/  LOC_DRAG/  0) ; 
dtawingjpw  »  canva3_j>ixvin(draMing_canvaa) ; 

/*  initialixe  the  operator  list  */ 
operator_liat,heBd  «  opetator_li3t.tail  «  NUbb; 

/*  poll  for  events  in  the  frame  */ 
window  main_loop (frame) ; 


) 
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get_hostnan»e  () 

function:  This  function  detemninea  if  the  uaer  ia  uaing  a  aun  aarv*,::. 

The  acreendump  capability  foe  the  graphic  editor  ia  only  functional 
if  the  editor  ia  operating  on  a  aun  aacver.  The  control  panel 
button  and  registration  of  the  dump_acreen  function  are  not 
part  of  the  graphic  diaplay  if  uaing  a  diakleaa  workatation. 
called  by:  main() 
calls:  none 


char  hostname [32] ; 

gethoatname (hostname, aixeof (hostname) } ; 
if  ( I atremp (hostname, SCRVERl) ) 

3erver++; 

if  (lstrcmp(hoatname,SERVER2)) 
aerver++; 

if  ( I stremp (hostname, SERVERS) ) 

3erver++; 

if  ( (stremp  (hostname,  SERVEI14) ) 

3ervor++; 


/ 
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create  jT)(5U3c_j)anol  () 

/*A*^A7<IA4*ik^AA4A*AA***«*****4^****AAA4*AAAAAAA**«««**«kAAAA**A*A*AAAA******** 
function:  Ocawa  the  mouae  interface  panel  which  containa  meaaagaa  which 
cieacribe  the  functionality  of  the  mouae  buttona 
called  by:  mainO 
calla:  none 

«AA**A^<^***«**lt«*«*A**4i*««AAAAAAuA*«*AAA«*A**AAAAAAAA«*A»A«AAAAAAA«AAA«A*AA*AA^ 

{ 

/*  diaplay  panel  meaaagea  */ 

panel_creato_item{mou3ejpanel/  PANEL^MCSSAGE,  PANEL_LABEIi_STRXNG/ 

"  MOUSE  INTERfACE:",  0);  ”  ”  " 

panel_create__item(mou3ejpanel/  PAHEL_MESSAGE,  PANEIi_LABEl>  STRXHG, 

"  -  “  -  “  0); 

panel  create  item(mou3ejpBnel,  PANEL  MESSAGE,  PANEL  LABEL  STRING, 

"  **  ”  “  “  ”  0); 

panel__create__item(mou3e_panel,  PANEL_MESSAGE,  PANEL__liABEL_STRXHG, 

"  Left  Mouse  SELECTS  graphic  editor  functions  and",  0) ; 


panel__create_item(mouaejpanel,  PANEL_MESSAGB,  PANEL__LABEL_STRING, 
"locations  for  new  graphic  objects",  0); 

panel  create  item(mousejpanel,  PANEL  MESSAGE,  PANEL  LABEL  STRING, 

"  “  ”  "  ",“0); 

panel__cteate_item  (mou3e_panel,  PANEL_MESSAGE,  PANEL__LABEL__STRING, 
"  Middle  Mouae  MOVES  graphic  objects",  0); 

pancl_create_item(mou3e_panel,  PANELJMESSAGE,  PANEL  LABEL_STRXNG, 

"  "  “  ",  0); 

panel  create  itein(mouse_panel,  PANEL  MESSAGE,  PANEL  LABEL  STRING, 

-  “  ”  0);  -  " 

panel_create_item (mousejpanel,  PANELJMESSAGE,  PANEL__LABEL_STRXNG, 
"  Right  Mouse  DELETES  when  positioned:",  0); 


/ 

-=1 

5 

j 

1 

I 

t 


i 


paneljCreate_item  (mou3e_panel,  PANEL_MESSAGE,  PANEL__LABEL__STRXNG, 
"within  an  operator,  on  the  tail  of  a  self  loop,",  0); 

paneljCreate_item (mou3e_panel,  PANBL_MESSAGE,  PANEL__LABEL_STRXNG, 
"on  the  tail/head  of  a  data  flow,  input  or  output",  0); 


) 


/*  fit  border  around  the  mouse  panel 
windoWjf  itjheighb (mousejpanel) ; 


*/ 
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create  operating  mode__paneI() 

. . . . . . . . 

function:  Thia  procedure  builda  the  operating  otode  panel  for  the  graphio 

editor,  which  conaiata  of  the  buttona  ;  "Print  Oiaplay"  (if  uaing 
a  aervec) ,  "Load  Exiating",  "Store",  and  "Quit", 
called  by:  mainO 
calla:  none 

( 

/*  diaplay  panel  meaaage  •/ 

panel_create__ltem (op_mode_panel,  PAMELJHSSSAGE, 

PANEL_LAML_STRIHG, "  OPERATING  MODE:",  0); 

/*  create  button  to  permit  a  acreendump  of  diaplay  "/ 
if  (aerver)  ( 

panel_create__item  (op_inodejpanel,  PANEL__BunON, 

panel”label_7mage,  ~ 

panel__button__iiaage  (op_modejpanel,  "Print  Deaign",  0,  0), 

PANEL_NOTirT_PROC,  duinp_acreen,  0)  ; 

J 

/*  create  button  to  cauae  data  to  be  read  from  the  data  baae  */ 
panel__create_item  (op_mode_j>anel,  PANEL__BUTT0H, 

PANEL__LABEL__1MAGE, 

panel_button__image  (op_mode_panel,  "Load  Exiating",  0,  0), 

PANEL”HOTirY”PROC,  loadjproc,  0); 

/*  create  button  to  interface  with  databaaea  "/ 
panel__create__iteni  (op_n»odejpanel,  PAHEL__BUTTON, 

PA«EL_LABEL_1MAGE, 

panel_button_image (op_modejpanel,  "Search",  0,  0), 

PANEL”NOTirT_PROC,  aearch,  0); 

/*  create  button  to  compoae  deaign"/ 
panel__create_item (op_mode_panel,  PAHEL_BUTTOM, 

PANEL_LABEL_IMAGE, 

panel_button_iinage  {op_inodejpancl,  "Compoae",  0,  0), 

PANEL^NOTiri^F  1C,  compoae,  0) ; 

/"  create  button  to  decompoae  deaign"/ 
panel__create_item  (op_mode_panel,  PANEL_BUTTOM, 
p]^EL_LABEL__IMAGE, 

panel__button_image (op_modejpanel,  “Decompoae",  0,  0), 

PANEL~NOTirY~PROC,  decompoae,  0); 

/*  create  button  to  atore  the  diagram  in  the  data  baae  */ 
panel__create_item (op_modejpanel,  PANEL_BUTXOH, 

PANBL_LABEL__IMAGB,  panel_button_image (op_mode_panel,  "Store",  0,  0), 
PANBL_NOTirY_PROC,  atorejproo,  0) ; 
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/•  crenbe  button  to  terminate  the  program  */ 
pancl._creatc_item  (op_mede_panel»  PANEL__BUrrOM» 

PAMBXi_WLDEb_IHAGB,  panel_button^image  (op_modojpanel,  "Quit",  0,  0)  / 
PAMBLJJOTir7_PRCX:,  quitjproc,  0); 

I*  £it  border  around  the  top  panel  */ 
wisxlov_fit_height  (opjnodejpaneJ.) ; 
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cceate  editing  modejpenel() 

function:  builds  the  editing  mode  panel  foe  the  graphic 
editor 
called  by:  main() 
calls:  none 


I 


create  the  mode  select  panel  */ 
panel_creato_item (edit^modejpanel,  PANEXi_CHOXCE/ 

”  PANEr_U^BEr,_STliilNG,  "  EDITIHG  HODE:  ", 

PAHEi:i”cHOICE_STRIHGS,  "  Draw  Operator 

"  Draw  Data  Flow 


*  Draw  Self  Loop 
"  Draw  Input 

"  Draw  Output 

0, 

PXNEL_rEEDBACK,  PAHEL_XHVERTED, 

PANEL  MOTXrV  PROG,  mode  select,  0) ; 


i 

i 


i 

9 

/ 


/*  fit  window  around  the  editing  mode  panel  */ 
window_f  it_height (edit_mode_panel} ; 


/ 
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ccoa6e_namojpanel  0  d 

y*A«i«**a«*«*4**««*#***««*«A*ik*«4«**i<k*4*«AA**Af»A*«*4A*«*A«A«**#*AAAA**AAA*AA<^«l 

function:  builds  the  identifier  name  panel  for  the  graphic  editor 
called  by:  mainO 
calls:  none 

( 

object^name  •*  panel_croate__item(namejpanel,  PAKKLJTEXT, 

PAiJEL_liABEL_STRlMG,  "  IDENTIflER  NAME;^, 

pamelj/alue7 

PAMElTvAXiUE  DISPLAY  LENGTH,  TEXT_MAX_LEN, 

0);  ” 

panel__cteate_item  (name__panel,  PANEL_BUTTON, 

PANEL_LABBL_1MAGE,  panel^button_image (namejpanel,  "Read  Name",  0,0), 
PANEL"*NOTirY  PROC,  input^text, 

0);  “ 

window_fit__height  (nBme_panel) ; 


) 


create  timejpanel () 

. . . . . 

ftmction:  bullda  the  tiire  constraint  panel  £or  the  graphic  editor 
called  by:  malnO 
calls:  none 

{ 

time^constraint  -  panel__create__ltom(tlfl>e_panel,  PAMELJTEXTf 
PXMEL^LXBEL^STRIHG,’'  TIME  COHSTRAIMT: ",  “ 

panel~vm,ue7 

PANEb7vAliUE_DlSPX*AY_X.ENGTH,TIME_MAX_LEH, 

0) ;  “  ~ 

panel_create_ltem(tline_panel,  PAMBI<_HESSAGE, 

PANEL  LABEL_STRIMG,  "  ", 

0); 

panel__create_item  (tliaejpanel,  PAMEL_BUTTON, 

PANEL_LABEL_1MAGE,  panel__button_l)«age  (timejpanel,  "Read  Tlate",  0,0), 
PANEL  NOTirT_PROC,  input_ti»e, 

0) ;  “ 

window__ilt_height  (timejpanel) ; 
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cceato_me33age_pnnol () 

function;  builda  meaaage  panel  for  editor  error  meaaagea  to  the  user 
called  by:  main() 
calla:  none 

i*(*)»*«***n*#*<^i't*tm*A<*<»*****v»*^>A*****o******^********************************* 

( 

/*  display  meaaages  panel  label*/ 

me33age»panel_create_item(me33agojpanel,  PAMEL_MESSAGE, 
PAMEL~I>ABEri_STRING, 

"  MESSAGE  PANEL:",  0) ; 

Hindow_fit_height (me33age_panel) ; 

1 
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static  Notify__value 
mode__3elcct  (item,  value,  event) 

Panel_item  item; 
int  value; 

Event  *event; 

function:  sets  the  mode  that  the  editor  is  operating  in  by  setting  the 

global  variable  "editjnode*  to  one  of  the  predefined  mode  constants 
called  by:  notifier 
calls:  none 


I 

switch (value)  ( 

case  OPERATOR: 

edit_mode  OPERATOR; 
break; 

case  DATA_riiOH: 

edit_mode  ■■  DATA__riiOK; 
break; 

case  SEbr_LOOP: 

editjnode  -  SELr_LOOP; 
break; 

case  INPUT: 

editjmode  ••  INPUT; 
break; 

case  OUTPUT: 

editjnode  -  OUTPUT; 
break; 

default : 

break; 


) 


) 

return; 


qultjpcocO  ^ 

/  A  A  A  A  «  A  «  *  •  *  #  I*  A  •  *  *  »  A  «>  •  A  *  A  «  n  A  A  »  «  A  A  A  A  A  Ik  A  *  )l  •  It «  A  A  A  •  ft  A  •  A  «  ^  A  A  •  *  A  •  It  A  #  A  *  A  «  A  •  « 

Aunccign;  aeca  the  mode  that  the  editor  is  operating  in  by  aetting  the  ^ 
global  variable  "edit^mode"  to  one  o£  the  predefined  mode  Constanta 
called  by:  notifier 
calls;  di3play__ecror_m3g0 

aaaaaaa*aaa««aaaaaaaaaaaaaaaaaa«aaaaaaAaaaaaa*aa«aaaaii«ii««aA(i^aaaaAa*aAaaaaaaa/ 

( 

i£  (graph^^aaved)  { 

wlndow_^3et  (frame#  rRAME__NO_CONriRH#  TRUE#  0); 
window  destroy (frame) ; 

I 

else  ( 

di3play_erroe_m3g (6) ; 
window__3et  (frame#  0) ; 
window__deatroy  (frame) ; 
display  error  m3g(l); 

) 

) 
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load__ptQC  () 

«***«*«>*«ii***«««»*a*«**#«*«*«*«< 

function;  Thia  function  cauaea  a  pceviouaXy  drawn  and  atocad  diagram  to 
be  loaded  whan  the  load^axiating  button  is  aalactad^ 
called  by:  notifiac 

calla:  craata_op() 

appand_^to__op^liat  () 
craate^lina () 
appand__lina_to__op  () 


int  optype^xl/yl/x2,y2; 

Hama  *onama, 

•deat; 

Tima  •tc; 

g£aph_aaved  ••  0; 

g  -  fopan ("/n/auna2/work/capa/prototypaa/graph.pic", “t") ; 
while  (Ifaof(g))  ( 

onaawt  «•  (Naata  *)malloc(aixaof  (NaaM) ) ; 
facanf (g, "tdvn", «optypa) ; 
facanf (g/ "tdVn^/ixl) ; 
facanf (g, "%d\n*/ iyl) ; 
facanf {g, "IdVn"#  *x2) ; 
facanf (g/ "ld\n", «y2) ; 
facanf (g, "%a\n", onama->atrlng) ; 
onaaia->langth  atrlan  (onaata->atring) ; 
if  ( (optypa  —  OPERATOR)  | |  (optypa  «—  EXTERHAb) )  ( 
tc  •*  (Tima  *)malloc(aixao£(Tima)); 
facanf (g, "laNn", tc->atring) ; 
tc->length  ••  atrlan  (tc-'>8tring) ; 
op  -  craata_op (onaaM, optypa, xl, yl/ x2, y2, tc) ; 
append_to  op_liat (op_liat,op) ; 

) 

elae  ( 

daat  (Nam«  *}malloc  (aixaof  (Mama) ) ; 
facanf (g, "la\n",daat->atrlng)  ; 
de3t->length  atrlen (da8t->atring) ; 
dop  craato_op  (daat,optypa,xl,yl,x2,y2,tc)  / 

In  -  create_line (onama, optypa, xl,yl,x2,y2, dop) ; 
appand__llna__to_op  (op.  In) ; 

) 

) 

fcloae (g) ; 
radraw_diagram() ; 

) 


153 


dvifflp_9ccetin() 

function:  petfocms  «  screen  dump  of  the  gcephic  editor  diapley. 
called  by:  notifier 
calls:  none 


{ 

ayatemlPRIHT) ; 

I 


search  0 

. . . . . 

function:  will  interface  with  the  CAFS  database  manager  when  the  search 
button  is  selected 
called  by:  notifier 
calls:  none 

{ 

1 


compose () 


function:  will  perform  the  composition  of  a  decomposed  design  when  the 
ccmpose  button  is  selected 
called  by:  notifier 
calls:  none 


( 

) 


decompose  () 

^aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa^aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
function:  will  perform  the  composition  of  a  decomposed  design  when  the 
compose  button  is  selected 
called  by:  notifier 
calls:  none 

AA*AAAAA*AAAAA**A*A****A*A**AA*A*A***AA*AA****A**A**A*AAA**AA*********»A****i;A/ 

{ 

) 
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atorejprocO 

function;  stores  the  data  flow  diargam  into  the  design  data  base. 

Prior  to  storing  the  diagram  it  calls  "create_PSDXi"  which 
transforms  the  picture  into  its  equivalent  PSDZ<  stateiaenta. 
called  by:  notifier 
calls:  create__PSDL() 

store_diagram() 

( 

create__PSDL() ; 
store_diagram() ; 
graph  saved  •■I; 

1 
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static  tloti£y_valuo  M 

proce33^canva3_eventa (canvaa, event)  H 

CanvB3  canvas;  ^ 

Event  * event; 

y«A****A«**A«***<^*«*****««AAA«*A«<NA*<t«A*«.«*****A«kA*#A*4^**«***A*A^*AA*AAA*«****» 

function:  draws  the  graphical  objects, 
called  by:  noti£ier 
calls:  pick_line() 

delete__line  () 
pic)c_operatoc  0 
delete__op() 
rubber_band() 
proce33_object () 
redraw__diagcain  () 

( 

int  id  ■  event__id  (event) ; 
static  int  xl,  yl,  x2/  y2; 
static  int  new_po3it  •*  1; 
static  int  le£t_button  "  0; 
static  int  middle_button  0; 

Operator  *op; 

Line  *ln; 


i£  (event__i3_^button  (event) )  {  /*  chec)c  £or  button  events  •/ 

i£  (event_is_down (event) )  {  /*  store  location  where  button  goes  down  */ 


xl  ••  event^x  (event) ; 
yl  «  event__y  (event) ; 
switch (id)  ( 

case  MS__LErT; 

new_po3it  “1; 
x2  "  xl; 
y2  -  yl; 
left_button-l; 
brea)c; 

case  MS_MIDDLE; 
break; 

case  MS  RIGHT: 


/*  position  o£  button  down  event 


/*  create  new  object  */ 


/*  pick  object  £or  moving  */ 


MS_RIGHT;  /*  pick  object  for  deletion  */ 

if  ((In  ■  piok__line  (op_li3t,xl,yl) )  I-  NULL)  ( 
op  «  NULL;” 

delete_line (op  list, op, In) ; 

) 

else 

if  ((op  ■  pick_operator (op_list,xl,yl) )  I-  NULL) 
delete_op (op_list, op) ; 
redraw_diagram() ; 
break; 


else  if  (event^is_up (event) )  { 
switch  (id)  ( 
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case  MS_IiErT; 

rubb«r__band{xl,yl,x2,y2) ; 

x2  ■  «vent__x  (event) ; 

y2  ••  ovent_jy  (event) ; 

proce33_object (xl,yl,x2,y2) ; 

redraw__diagcam() ; 

le£t_button-0; 

b£eB)c; 

ca3e  MSJMIDDLE;  I*  stubbed  */ 

1£  ( Itftlddlejbutton) 
break; 

case  MS_RXGHT:  stubbed  */ 

break; 

) 

) 

) 

elae 

i£  (id  —  I/X:_DFAG)  ( 
i£  (le£t__button)  ( 
i£  (tnew_po3it)  ( 

/*  rubber  band  operator's  boundary  while  bein^  drawn  */ 
rubber_band(xl,yl,x2,y2) ; 
x2  -  event_x  (event) ; 
y2  •"  eventjy  (event) ; 
rubber  band(xlfylfX2,y2) ; 

I 

else 

newjposit  «  0; 

) 

) 

return; 

) 
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proceaa__object  (xl,yl|X2,y2) 
int  xl,yl,x2,y2; 

function:  proceasea  operatoca,  data  flowa,  aalf  loopa,  inputa  and  outputa 

called  by:  ptoceaa__canvaa__eventa () 
calla:  picJc__opecatot{) 

pcocoaa__opecator  {) 
ptoce3a__llne  () 
diaplay^ertotjnag {) 

( 

Operator  *op,  *aop,  *dop; 

awitch  (edit^mode)  { 
caae  OPERATOR: 

if  (nante^checked  ££  time_checked)  ( 

/*  draw  object  if  it  ia  not  poaitioned  on  top  of  an  exiating  object  */ 
if  {{ (pick_operator(op__li3t,xl,yl)  )<— NULIj)  C£ 

( (pick__opesator  (op_li3t,  x2,  y2) )  —NULL) )  { 
proceaa  operator (OPERATOR, xl, yl, x2, y2) ; 

) 

) 

elae  ( 

diaplay  error  mag (4); 

) 

break; 

caae  DATA-FLOW: 

if  (name^checked)  ( 

/*  check  if  the  line  atarta  and  terminatea  on  an  operator  */ 
if  ( { (aop»pick_^operator  (op_liat/Xl,yl) )  l-MULL)  it 

( (dop'-pick_operator  (op_liat,x2,y2) }  l-NULL)  £&  (aop  I»  dop))  ( 
procea3__line  (DATA__rLOM,xl,yl,x2,y2,  aop,dop) ; 


elae  ( 

diaplay_error  mag (5); 

) 

break; 

caae  SELF_LOOP: 

if  (name_checked)  ( 

/*  draw  the  loop  if  it  atarta  on  an  object  and  ia  not  */ 
/*  interaecting  an  exiating  object  */ 
if  ( { (3op“pick_operator (op_li3t,xl,yl) ) l-NULL)  fiC 
( (dop-pick_operator  (op^li3t,x2,y2)  )—NULL) )  { 
prooea3_line  (SELr_LOOP, xl, yl, x2, y2, aop, aop) ; 

) 

) 

elae  ( 

display_error_m3g (5)  / 

) 

break; 


case  INPUT: 

if  (naroa^chackad)  ( 

/*  check  if  line  ends  on  an  operator  */ 
if  ( ( t3op<-pick_pperator(op_JLiat,xlfyl)  )»-*HULL)  tt, 
{ (dop-pick__operator  (op__list,x2,y2J )  I-MULIj))  ( 
process  line  (ZNPUT,xI,yl,,x2,y2,aop^dop)  / 

) 

) 

else  ( 

display_^ecror_ma9  (5) ; 

1 

break; 

case  OUTPUT: 

if  (naaw__checked}  ( 
dop  "  NULL; 

/*  check  if  line  is  valid  */ 

if  ( { (aop-pick_opetator(op__li8t,xl,yl) )  IHIULL)  tC 
( (dopTiick_operator(op__liat/x2,y2)  )*-«MULL) )  { 
process  line (OUTPUr/Xlfyl/x2,y2, sop, dop) ; 

) 

I 

else  ( 

display  error  msg(5); 

1 

break; 

default: 

break; 


dcawjobjcct (otypCf xl,yl,x2,y2) 
int  otype,xl,yl,x2,y2; 

/•••«ft<«A*A«4**««**AA««***«*A<l**<««4**A«*#A*««A«***«*A*A*AAAAA*A*AA***AA/ 

function:  dcswa  object  in  the  dcawing  apace 

called  by:  pcoce3a__opecatoc() 
pcoceaa_,line  () 
redcaw^diagramO 
calla:  none 

/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAaAAAAAAAAAAAAAAAAAAAAAAAAAA/ 

I 

float  if  nidfymidf xcentfycent; 
int  xneUf ynewf xoldf yold; 


awitch (otype)  ( 
caae  OPERATOR: 

xmid  -  (x2-xl)/2.0; 

ymid  »*  {y2-yl)/2.0;  /•  objecta  center  point  on  the  acreen  */ 

xcent  "  xl  +  xmid; 

ycent  "  yl  +  ymid;  /*  find  poaition  to  atart  drawing  the  object  *! 
xold  x2; 
yold  «  ycent; 

/*  loop  to  draw  the  object  */ 
for(i  -  0.0;  i  <-  2  *  PI;  i  -  i  +  PI  /  12)  ( 
xnew  "  xcent  +  (xmid  *■’  coa  (i) ) ; 
ynew  »  ycent  +  (ymid  *■  ain(i)); 

pwjvector (drawingjpw,  xold,  yold,  xneWf  ynew,  PIX^^SRC,  1) ; 
xold  •*  xnew; 
yold  "  ynew; 


) 

break; 

caae  DATA_ri.OH: 

pw_vector (drawingjpw,  xl,  yl,  x2,  y2,  PIX^SRC,  1) ; 
break; 

caae  SEI,r_LOOP: 

pw__vectoc  (drawingjpw,  x2,  yl,  x2,  y2,  P1X__SRC,  1) ; 

pw__vector  (drawingjpw,  x2,  y2,  xl,  y2,  PIX_5RC,  1) ; 

pw_vector  (drawingjjw,  xl,  y2,  xl,  yl,  PIX__SRC,  1) ; 

break; 
caae  INPUT: 

pw_vector  (drawingjpw,  xl,  yl,  x2,  y2,  P1X__SRC,  1) ; 
break; 

caae  OUTPUT: 

pw__vector  (drawing_pw,  xl,  yl,  x2,  y2,  P1X__SRC,  1) ; 
break; 
default  : 
break; 

) 

} 
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rubber_b»nd (xl, yl, x2, y2) 
int  xl,yl,x2/y2; 

. . . . . 

function:  expanda/ahrinka  aelocted  drawing  objact 
called  by:  procea3_canvaa__eventa  () 
calla:  none 

( 

awitch(edit_mode)  ( 
caae  OPERATOR: 


pw_vector (drawingjpw, 

xl. 

yi. 

x2. 

yi, 

PIXjMOT (PIXjDST) , 

1); 

pw_^  octor  (drawingjpw. 

x2. 

yi/ 

x2. 

y2, 

Hx”mOT  (PIXjDST)  , 

1)/ 

pw_veotor (drawingjpw, 

x2, 

y2/ 

xl. 

y2. 

PIXjMOT (PIXJDST) , 

1); 

pw__veotor  (drawingjpw, 
break; 

xl. 

y2/ 

xl. 

yi/ 

PIx“hOT (PIXjDST) , 

1); 

caae  OATA_rLON: 

pw__vector  (drawing_pw, 
break; 

xl. 

yi. 

x2. 

y2, 

PIXjMOT (PIXjDST) , 

1); 

caae  SELr_l/X)P: 

pw__vechor  (drawingjpw. 

x2. 

yi/ 

x2. 

y2, 

PIXjMOT (PIXjDST) , 

1); 

pw__vector  (drawingjpw. 

x2. 

y2/ 

xl. 

y2, 

PIX~MOT (PIXjDST) , 

1); 

pw_vector (drawingjpw, 
break; 

xl. 

y2/ 

xl. 

yi, 

PIx“mOT (PIXJDST)  , 

1); 

caae  INPUT: 

pWjVector (drawingjpw, 
break; 

xl/ 

yi/ 

x2. 

y2, 

PIXjMOT (PIXjDST) , 

1); 

caae  OUTPUT: 

pWjVector (drawingjpw. 

xl. 

yi# 

x2. 

y2, 

PIXjMOT (PIXjDST) , 

X); 

break; 

default: 

break; 

) 

) 
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proce33_opecatoc(otype,xl,yl#x2,y2) 
int  0typc,xl,yl,x2,y2; 


function:  checks  the  name  and  time  constraint,  atoces  into  data  structure 
called  by:  procos3_,objoct  () 
draw__ob  ject  () 
calls :  draw_ob ject () 

get__tin\e_^const  () 
get__nnme() 
diaplay_tc() 
create_^op  () 
append_to__op_li3t  () 


Hame  *obj_naine; 
Time  *tc; 
Operator  *op; 


draw__object  (otype,xl,yl,x2,y2) ; 
to  ••  get_time__con3t  () ; 
obj^name  "  got__namo(); 

di3play__nnme  (obj_name,otype,xl,yl,x2,y2) ; 
di3play__tc  (tc, xl, yl,  x2, y2)  ; 

op  “  create^op(obj__name,otype,xl,yl,x2,y2,tc) ; 
append__to^op_,liat  (op^^liat,  op) ; 
n8me__checked  0; 
time  checked  0; 
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I 


proc«a3__line  (obype,  xl,  yl,  x2f  y2,  aop,  dop) 

inb  obype,xl.,yl,x2,y2; 

Oper«boc  *aop, *dop; 

/AAAAAAAAAHAAAAA^AAAAAAAA****#!*****************************)********************* 

£uncbion:  9«ba  abbcibub«3  and  draws  a  llna 
called  by:  procesa_jobjecb () 
draw__obj«cb  () 
calls:  draw_objecb() 

draw^arrowhead  0 
geb_bime__conab  0 
exbernal () 
creabe_op() 
append_bo__op_li8b  () 
geb_nam«  (} 
dlaplay_ntflM  () 
creab«__lin«  () 
append_to_op () 

( 

NaiM  *ob  j__naaM,  *op_naiM; 

Line  *ln; 

draw_oh'\';b  (obype,xl,yl,x2,y2) ; 

i£  (obypa  —  SEI.r_LOOP) 

draw^arxowh«ad(x2,y2,x2,yl) ; 

elae 

dxaw__.irrowh«ad(xl/yl,x2/y2) ; 

if  (obype  —  IHPOT)  ( 

bo  g«b__bljue__con8b  () ; 
op_nam«  exbernal  (); 

sop  "  creabe_op(op_na»e«EXTBKMAL,xl,yl,x2,y2,bc) ; 
append_bo  op_lisb (op  llsb^sop); 

) 

obj^name  «  geb_naBM(); 

dl8play_naiae  {obj_naiAe/ obype, xlfyl,x2/y2) ; 

In  creabe_line  (obj_naM,  obype, xl,yl,x2,y2,  dop) ; 

appand_line_bo_jop  (aop.  In) ; 

nante  chec)ced  0; 
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Operntoc  *ctente__op  (name,  op__type, xl,yl, x2, y2,  to) 

Marne  *name; 
int  op_typc; 
int  xl,yl,x2,y2; 

Time  *tc; 

function:  gets  the  atorage  required  to  atore  an  operator  or  input  by 

calling  alloc^operator.  Xt  then  filla  in  the  operator  with  ita 
coordinatea/  and  time  conatraint. 
called  by;  load_procO 

proceaa__operator  () 
proce3a_^line  () 
calla:  alloc__operator  () 


AAA  A  A  ! 


Operator  *new_op; 
new_op  ••  alloc__operator  0  ; 
new_op->name  "  name; 
new_op->time_con3t  -  tc; 
new_op->head  "  NULL; 
neH_op->tail  -  NULL; 
new_op->next  ■  NULL; 
awitch (op_type)  ( 
caae  OPERATOR: 

neM_op->optype  *  OPERATOR; 
new_op->xatatt  -  xl; 
neH_op“>y3tart  ■  yl; 
new_op->x3top  «  x2; 
new_op->y3top  ■■  y2 ; 
break; 

caae  EXTERNAL: 

new__op->optype  ••  EXTERNAL; 
new__op->X3tart  -  0; 
new_op->y3tart  0; 
new_op->x3top  -  0; 
nevf_op->y3top  ■  0; 
break; 


default: 


return (ne“_op) ; 


break; 
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Line  *cceate__llne(niime,ln_type,xl,yl,x2,y2,d«at__op) 

Name  *name; 

int  ln__type/ 

int  xl,yl,x2,y2; 

Opecatoc  *de3t_op; 

/****AAAAAA*A*4A*A************A***A**A****«***«««««*«**«*«A***«A«««A*««*««««^«* 

function:  geta  the  atorage  required  to  atore  a  data  flow  line  or  an 

output  line  by  calling  alloc_line.  It  then  filla  in  the  line  etruot 
with  ita  name  and  coordinatea. 
called  by;  load_jproc() 

proceaa_line  () 
calla :  alloc_line  () 

external  () 


Line  *new  In; 


) 


new__ln  alloc_line  () ; 
new__ln**>name  naoM; 
new__ln->xatart  •«  xl; 
new_ln->yatart  yl; 
new_ln->xatop  -  x2; 
new__ln->y8top  «  y2; 
new^ln“>next  ■■  NULL; 
awitch(ln_typo)  { 
caae  Tnfut: 

new_ln->lntype  INPUT; 
new_ln~>deat  «  deat_op**>na»e; 
break; 


caae  DATA_rLOH: 

new__ln->lntypc 

new_ln->de3t 

break; 

caae  OUTPUT: 

new__ln->lntype 

new_ln->de8t 

break; 

caae  SELr_LOOP: 

new_ln->lntype 

new__ln->de8t 

break; 

default : 


data-flow; 
de8tjop->na«e ; 


OUTPUT; 
external  0 ; 


SELr_LOOP; 
de8t_op->naa»e ; 


break; 

) 

return (new  In); 
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doIote_op(op^li3b«cp) 

0pccatoc__li3t  *op_li3t;  V 

Oporatoc  "op; 

function:  deletes  operators  from  the  drawing  apace  and  the  internal  data 

structure 

called  by:  proce3a__canvna_eventa{) 
delete_input_linea () 
calls :  delete_input_line3 {) 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaAaaaaa/ 

( 

Operator  *dptr^ 

*otemp; 

Line  *lptr/ 

*lteinp; 

Name  *n; 


/*  find  lines  which  terminate  on  this  operator  and  delete  them  */ 
n  “  op->name; 

delete_input__^line3  (op^^list,  n) ; 
otemp  "  op__li3t->head;  /*  put  pointer  at  head  of  op  list  •/ 

if  (op  !*•  otemp)  (  /*  is  the  first  op  the  one  to  delete?  •/ 

while  (otemp->next  I-  op)  {  /*  if  not,  find  the  one  to  delete  «/ 

otemp  “  otemp->nexb; 

I 

dptr  "  otemp->next;  /*  unlink  the  op  to  be  de) 

if  (dptr->next  !“  HULL)  ( 

otemp->nexb  ■*  dptr->next; 
dptr->next  «  NULL; 


/*  unlink  the  op  to  be  deleted  */ 


otemp->next  "  NULL; 


else  ( 

dptr  “  op__li3t->head; 
op_liat->head  dptr->next; 


/*  the  first  one  is  the  one  to  delete  */ 
/*  unlink  the  first  op  */ 


if  (dptr->hcad  I-  NULL)  ( 

Itemp  ■  dptr->head; 

Iptr  “  dptr->head; 
dptr-'>head  «  NULIi; 
while  (lptr->next  I"  NULL)  ( 
Iptr  >■  lptr->next; 

Itemp  ••  Iptr; 

) 

Iptr  -  NULL; 

Itemp  -  NULL; 

) 

dptr  -  NULL; 


/*  does  it  have  any  assoc  lines  ?  */ 


166 


I 


dei«to_input__line3  (op^Xist,  n) 
Operator_Xiat  •cp__listj 
H«n«  ‘n; 


function:  deX«t«3  Xinea  as90ci«t«d  with  an  oparatoc  whan  daXabingf  oparatoca 
called  by:  dclete_,op() 
calls:  delate_op() 

delete^line () 

( 

Operator  ‘optr; 

Lina  •Iptr/ 

•Iterop; 

optr  “  op__li3t“>head; 

while (optt  I-  HULL)  (  /•  search  the  entire  liat  of  oparatora  •/ 

Iptr  ••  opts:”’>head; 

while (Iptr  I"  HULL)  (  /*  check  each  line  leaving  each  operator  */ 

if { I atrcmp (n->atting, lptr->deat->atrlng) )  ( 

Itemp  «  lptr->next; 

/*  found  a  line  with  the  destination  searched  for 
delete_line (op__liat, optr, Iptr) ;  /•  ao  delete  it  •/ 

/*  if (optr->optype  —  EXTCWIAL)  { 

delete  op (op  liat, optr); 

)  •/  "  ’ 
iptr  -  Itemp; 

1 

else  t 

Iptr  “  lptr->next; 

) 

) 

optr  ••  optr->next; 

) 

) 
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dcleto^Xino  (op_JLiab,  op.  In) 

0pecator_li3t  *op_li3fc; 

Opoeacoc  <*op; 

Line  <'In; 

^«*A«k*ft«*««*««4*«**A4<«*4A^*4******AA«AA***AAAA*«*A<iAA*4A*A^A*A*A«*****A^’AA*A*AA 

function:  semovoa  line  £ron\  linked  liat  data  structure 
called  by:  delete_input_line3 () 
calls:  none 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/ 


Operator  *optr; 

Line  *lptc, 

•Itemp; 

int  In  found  •*  O; 


if  top  I"  NULL)  ( 

optr  •"  op;  /*  start  the  search  for  the  line  at  its  source  op  */ 

Iptr  «  optr->head; 

Itemp  «  Iptr; 
while (Iptr  I-  In)  ( 

Itcmp  -  Iptr; 

Iptr  ■  lptr->next; 

) 


) 


else 


(  /*<  source  op  is  unknown  ~  find  the  line  */ 

optr  op_list->he'id; 
while  ((optr  l«*  NULL)  11 C  (lln_found))  ( 

Iptr  •»  optS“>hcad; 

Itemp  "  Iptr; 

while  ((Iptr  !-  NULL)  fifi  (lln^found))  | 
if  (Iptr  In) 


ln_found  -  1; 
else  ( 

Itemp  Iptr; 

Iptr  ■  lptr->next; 


) 


1 

if  (lln__found) 

optr  -  optr->next; 


) 

/*  unlink  the  line  */ 

if  (Itemp  —  Iptr)  {  /*  delete  first  line  on  list  */ 

optr->head  ■■  ltemp->next; 
lptr->next  ••  NULL; 

Itemp  -  NULL; 

if  (optr->head  ■■■•  NULL)  {  /*  first  line  was  the  only  line  */ 

optr->tail  NULL; 

) 

} 

else  ( 
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if  (Iptr  optr->t«il)  {  /*  delfttft  I»at  lin*  fro*  th«  liat  */ 

ltemp->next 
opcr->tail  «  lt«n»p; 

) 

elae  (  /*  delete  a  adddle  line  froat  the  liat  */ 

ltemp->next  ••  lpts'*>next; 
lptr**>next  «  HULL; 

}  fc  e- 

optr  ••  NULIi,* 

) 

1 
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Oporatoc  *plck_oporator (op_liat,xpick,ypic)c) 

0peetttoc__li3t  *op__ll3t; 
int  xpick,  ypick; 

/AAAA**AAAAAAAAAAAA****A*A*AA*AAA*AA**A*A**A*A*AAAAAA*A«**AA*AAA**«>*AAA*AA***** 

function:  dQtermine3  if  a  data  flow  line  or  output  line  atarta  on  an 

operator.  Xf  the  search  for  a  source  operator  ia  auccesaful,  it 
returns  a  pointer  to  that  operator, 
called  by:  proces3__canva3_event3 () 
procea3_operator () 
calls :  i3__op__pick  ( ) 

A  A  AAA  A  A  AAA AAa7a  AA AAAA A AA A AAAA AAAAA AAA  A AAAA A  A  A  AAA AAAAAAAAAAAAAAAAAAAAA AAA AAAA AA/ 

( 

Operator  *ptr; 

for  (ptr  "  op__li3t->head;  ptr  !«  HULL;  ptr  “  ptr->next)  ( 

if  (ptr“>optype  OPSRATOR)  (  /*  skip  the  null  operators  */ 

if  (i3_^opjpick (ptr->X3tart,  ptt->y3tart/  /*  teat  for  pick 

ptr->X3top,  ptr->y3top,  xpick,  ypick) )  ( 
return (ptr) ; 


return (MULL) ; 
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int  ia_op_pick (xl , yl , x2 , y 2 , xp,  yp) 
int  xl,  yl,  x2,  y2,  xp,  yp; 

/***A*A*AA*««************AA*A*AA*******A***)»**<k*««A<t«**«k************«********** 

function:  detcrminea  If  •  pick  haa  occurred  within  the  bounds  of  an 
operator. 

called  by:  pick_operator (} 
calla:  none 


***A***A**A*MA********^**ftft*****A**A****************««k*****************«***a**/ 


in  {( 

(xp  >  xl) 

(xp  <  x2) 

£« 

(yp  >  yl) 

fifi 

(yp 

< 

y2) 

)l 

< 

(xp  <  xl) 

«C 

(xp  >  x2) 

fid 

(yp  >  yl) 

fifi 

(yp 

< 

y2) 

)  1 

( 

(xp  <  xl) 

££ 

(xp  >  x2) 

fifi 

(yp  <  yl) 

fifi 

(yp 

> 

y2) 

)l 

( 

(xp  >  xl) 

C£ 

(xp  <  x2) 

fifi 

(yp  <  yl) 

fifi 

(yp 

> 

y2) 

)) 

return (1) ; 

elae 

return (0) ; 
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liine  *pick__line  (op_li3t,xpick,ypick) 

function:  determines  if  a  line  object  was  picked  with  the  mouse 
called  by:  peoce33_canvaa_^ovents () 
call3:  i3__llne_j)ick() 

0perav‘.ot__li3t  *op_li3t; 
int  xpick/  ypick; 

( 

Operator  *optr; 

Line  *lptr; 

/*  aearch  each  operator' 3  line  list  */ 

for  (optr  «  op_li3t->head;  optr  I-  NULL;  optr  -  optr“>next)  { 
for  (Iptr  "  optr->head;  Iptr  !••  NULL;  Iptr  ••  lptr~>next)  { 

if  (i3__line_pick (lptr->X3tart,  lptr->ystart,  /*  teat  for  pick  */ 
lpfcr->x3top,  lptr->y3top,  xpick/  ypick) )  { 
return (Iptr) ; 

) 

) 

) 

return (NULL) ; 

) 
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int  i3_linejpick (xl, yl, x2, y2, xp, yp) 
int  xl,  yl,  x2,  y2,  xp,  yp; 

^•******a**«*a***a****a«****«<*******«a*a****«*a#*a*****a^«A4*****a*#*****<^**a*<I 
function:  detominaa  if  moua«  ia  on  a  lin« 
called  by:  pick_line() 
calla :  none 

aaaaaaaaaaaaaaaaaa^aaaaaaoaaa^aaaaa*******************************************^ 

( 

if  ( ( (aba  (xl-xp)  +ab3  (yl~yp) )  <  PROXIHI'fY)  1 1 
( (aba (x2“xpi +ab3 (y2-yp) )  <  PROXIMITY)) 
return (1) ; 

elae 

return (0) ; 
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nppond__to__op_li3t  (op_JLiat,op) 
0petatoc_li3t  *op__li3C; 
Operator  <‘op; 


function:  adds  new  operators  to  linked  list  of  operators 
called  by:  loadjprocO 

proce33_joperator  {) 
proces3_line {> 
calls:  none 

AAAAAAAAAAAA*AAA*AA*AAAA*AAAAAAAAAAAAA#AAAAAAAAAAAAAAAAAAAAAAAAAAAA*AAAAAAAAAAy 


if  (op__li3t->head  •«*•  NULL)  { 
op_li3t->head  ■  op; 
op  liat->tail  •»  op; 

) 

else  ( 

op_liat->tail->next  ••  op; 
op  li3t->tail  ••  op; 

) 

) 


/*  attach  first  operator  to  list  */ 


/*  attach  operator  to  end  of  list  */ 
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«ppend_lin«__to_op  (op,  In) 

Operator  *op; 

Line  *JLn; 

function:  attaches  data  flows,  states,  and  outputs  to  link  list  of  operators 
called  by:  load_j)roc(} 

process_line () 
calls:  none 

A*A*****A**«k****«*lk*«**A*******A**A*******4)A****«**«***A*****«**«*<S*********«*^ 

{ 

if  (op->head  —  HULL)  ( 

op->head  "  In;  /*  attach  first  lino  to  list  */ 

op'“>tail  -  In; 

) 

else  ( 

op'->tail**>next  In;  /*  attach  to  end  of  line  list  */ 

op->tail  ••  In; 

1 

) 
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Opcratoe  ^alloc^operator () 

A  A  A  4  <*  *  H  A  A  A  «  A  A  A  It  A  A  A  St  A  A  It  A ‘f  *iA  A  A  A  A  A  A  A  A  A  A  0  A  A  *  A  A  A  *  4  ft 

function:  allocates  dynamic  atccage  for  operators  their  inputs  ^ 

called  by:  cteate__op() 
calls:  none 

AAA  A  A  AAAA  AAAA  A  AAAAAA  AAAAAAAAAAAAAAAAAAAAAAftAAAAAftA  AAAAftAAA  AAAAAAftAAA  AAAAAAAAAA/ 
( 

Operator  *op; 


op  •*  (Operator  *  )malloo(sizeo£  (Operator) ) ; 
return (op) ; 


Line  ^alloc_line (} 

^t«A«*««4t<(4l*ftAI|*«*A*l»A*«**«l**AM*A*A**AM*M*A****ft**«A«*«A«*«t***«««***ft***ft****A** 

function:  aliocetea  dynamic  ator«9«  for  data  fiowa  and  outputa  of  an  oparator 
called  by:  create_^line  (} 
calla:  none 

( 

Line  *ln; 

In  >■  (Line  *)malloc(aixeo£  (Line) ) ; 
ceturn (In) ; 

) 


input__text  (item,  value,  event) 

Panel_item  item; 
int  value; 

Event  *event; 

function:  reada  the  namea  from  the  name  panel 

called  by:  notifiec  when  entering  an  object  identifier  name  i 

calla:  is_valid^ada_id() 

diaplay_error_mag () 

(  ^ 
tmp_buf  ■"  malloc(80); 

/*  initialize  the  atorage  */ 

tmp__buf(0)  "  ' 

atrepy {tmp_buf,  (char  *)panel_get_value(object_name) ) ; 

/*  check  to  aee  if  the  name  ia  an  ada  identifier  */ 
if  (ia_valid__ada_id(tmp__bu£) )  { 
diaplay_error_jnag  (1) ; 
name  checked  «  1; 

) 

elae 

diaplay_ertor  mag  (2); 

1  “  ' 
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1 


ff 


diapl«y_«rror_m3g  (m3g__id) 
inb  mag  id; 

function:  diaplays  warninga  and  error  meaaagea  in  the  measage  panel 
called  by:  pr«')ce33_objcct () 
inp\it_text  () 
input__tl»e  0 
quitjprocO 
calla:  none 

{ 

char  *mag; 

mag  inalloc{61); 
awibch (mag_id)  { 
caae  1: 

mag  -  "  MESSAGE  PANEL:  "; 

break; 
caae  2: 

mag  -  "  MESSAGE  PANEL:  SYNTAX  ERROR  in  ADA  identifier  "; 

break; 
caae  3: 

mag  -  "  MESSAGE  PANEL:  SYNTAX  ERROR  in  Maximum  Execution  Time 
break; 

caae  4: 

mag  -  "  MESSAGE  PANEL:  ERROR  -  Either  NAME  or  TIME  not  read 
break; 
caae  5: 

mag  -  "  MESSAGE  PANEL:  ERROR  -  NAME  not  read 
break; 
caae  €: 

mag  ••  "  MESSAGE  PANEL:  WARNING  -  The  graph  haa  not  been  atoredi  *; 
break; 
default: 
break; 

) 

windoM_aet (meaaagejpanel/C) ; 

panel  3et<me3aage/  PANEL_LABEL_STR1N0,  laag,  0); 

) 
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Home  *get__nnMe{) 

fur.ction:  creates  a  dynardc  name  structure 
cal}.ed  by:  proce33_operator {) 
proco83_lino  () 
calls:  none 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA^ 

( 

Name  *n; 

n  "  (Hamo  *)malloc (sizeof (Hame) } ; 
str jpy (n->3trlng, tmp_bu£) ; 
n->length  ~  strlen (n->3tring) ; 
return  (n) ; 

) 


I 


dli3plBy_.n8rRe  (n,  ©type,  xl,  yl,  x2,  y2) 

Uanjo  *n; 

int  otypc,xl,yl,x2,y2; 

^unccion:  diaploya  the  name  oS.  the  object  which  the  usee  has  drawn. 

Operator  names  are  centered  within  the  operator,  data  £low  line 
names  start  above  the  center  o£  the  line,  input  names  start  above 
the  initial  point  oC  the  line,  and  output  names  start  at  the  end 
o£  the  output  lino, 
called  by:  pcoce3a__cp-3tatoe{) 
proctt3s__line  () 
rodraw^diagram  <) 
calls:  none 

•  ••««it*«««A«*i»««****#««*AA*««A«****4*«*A****«*A**«**««*««***A&a*A*<lAA***a***A«/ 

( 

£loat  xcent,ycent; 

xcent  »  xl  +  ((x2  -  xl)  /  2.0); 
ycent  -  yl  +  ((y2  ~  yl)  /  2.0); 
switch (otype)  ( 
case  OPERhTOR: 

xcent  -  xl  +  ( (x2  -  xl)  /  2.0); 
ycent  ■»  yl  +  ((y2  -  yl)  /  2.0); 
pw__text  (canvasjpixwir;  (drawing_^canva8) , 
(int)xcenE~({n->l«ngth)/2) *8, 

(int)  ycent+5 ,  PIX_SRC,  NULI,,  n  •>stting) ; 

break; 

case  ZKPUT: 

pw^^text  (canvaa__pixwin  (drawing__eanva3) ,  xl,  yl,  PIX_SRC, 

HUbL, n->string) ; 

break; 

case  OUTPUT: 

pw_'iext  (canvasjjixwin  (draMing_csnvas)  ,x2,y2, 1!IX_SRC, 

HULL, n“>3tring) ; 

break ; 

case  DATA^rLOH: 

xcent  -  (x2  -  xl)  /  2.0; 
ycent  ~  {y2  -  yl)  /  2.0; 

pw__text  (canva3_pixwin  {drawing_canva3) ,  xl+  (int)  xcer.t, 
yl+  (i.nt)  ycent,  PIX_SRC,  MUli,  n-.'>atslng) ; 

break; 

case  SELr_LOOP: 

xcent  ■■  xl  +  ( (x2  -  xl)  /  2.0); 
pw^text {canvas_pixwin (drawing_canva3) , 

(int) xcent- ( (n->length) /2) *8, 

(int) y2-7, PIX_SRC, NULL, n->3tring) ; 

break; 

default: 

break; 

) 

) 
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int  i3_^valid__adn_id  {tmp^buf) 

cha  c  femp_bu  £(00);  , 


function:  chocks  to  aoe  if  a  namo  is  a  iegal  ada  identifier 
callod  by:  inpufe__tcxt (J 
calls:  nono 


int  3pace_found  ■•  0; 

int  i  "  1; 


4 


if  (isalpha  (tnip__buf  (0) ) }  { 

while  (i  <«  strlen({ohac  "5tmpjbuf)  -  1)  ( 
if (!i3graph(tmp_buflij))  { 
space^^fouJid  -I; 
i  -  i’'-*-  1.J 

1 

also  { 

if  ( ( (isalm«n(tmpjbuf  (i) ) )  1 1  (tmp_buf(i) *•«'__'))  I  (space^found) ) 

i  «  i  4  1? 

else 

return (0) t 

) 

) 

return  (1) ; 

} 

else 

return  (0) ; 
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input__tiine  (item,  value,  event) 

Panel^^^item  item; 

int  value; 

Event  *evftnt; 

function:  geta  and  checka  tine  conatrainta 

called  by:  notified 

calla :  diaplay^^estorjaag  () 

is__yalid__time_conat  () 

{ 

tinp__bufl  «  malloc(12); 
tmpJjufltO)  -  ' 

atrepy  (tnp_bu£l,  (char  *)  panel__get_valu«  (tine_^con8traint) ) ; 
if  (i3_valid_tin«__con3t  (tmp^bufl) )  ( 
diaplay__errot_mag  (1) ; 
time  chec)ced  1; 

I 

elae 

diaplay  error  mag (3); 

) 
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int  i3_vf»lid__time_con3t  (tmp__bu£l) 

chac  tmp_,bu£I(l2] ;  . 

function:  checks  syntax  £oc  time  conatcaint 
called  by;  input__fcime ( ) 
calla:  none 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaAaaaaaaaaaaaaaaaaaaaaaaaaaaa/ 


int  nondigit__found  •«  0; 
int  letter jpcev__found  0; 

int  mfound  ••  0; 

int  ufound  «•  0; 

int  done  -  0; 

int  i  ••  1; 


if  (iadigit (tmp_bu£l(0] ) )  ( 

while  (i  <-  3tclen((char  *)tmp_bufl)  -  1)  ( 
if  (!i3alnum(tmp_bufl[i] ) ) 
return (0) ; 
elae  ( 

i£  (iadigit  {tmp__buf  1  [i] )  * 1 1 nondigit__£ound) 
i  -  i  +  1;  ” 
elae  ( 

if  (iadigit (tmp_bu£l[i] ) ) 
return  (0) ; 
elae  ( 

nondigit_found  -  1; 

3witch(tmp_bu£l[i] }  ( 
caae  'u':  if  (lletter_prev__found)  { 
ufound  *•  1; 

letter_prev_£ound  "1; 
i  -  i  +  1;  “ 

) 

elae 

return (0) ; 
break; 

caae  'a':  if  ( ! letterjpcev_f ound)  { 
letter__prev_found  “1; 
i  "  i  +  1/ 

) 

elae  ( 

if  ( (ufound) (mfound) C£ (done) 
done  “I; 
i  -  i  +  1; 


( 


elae 

return (0) ; 


break; 

caae  'm' :  if  ( I letter_prev_found)  ( 
mfound  •-  1; 


letter jprev  found  1; 

i  *  i  1  * 


) 

else 


) 

if 


) 

elae 


) 


return (0) ; 
break; 

default  :  return (0); 
break; 

I 


( (ufoundfit tdone) 1 1 ( lnondigit_found) ) 
return (0) ; 


return (0) ; 
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Time  *get__time^con3t;  () 

function:  creates  initial  time  structure  for  objects 
called  by:  proces3_^operator () 
proce33__line  () 


calls :  none 


Time  *tc; 

/*'  get  storage  for  the  time  constraint  */ 
tc  ■  (Time  *)malloc(3izeo£(Time) ) ; 
switch (edit_mode)  ( 
case  OPERATOR: 

strepy (tC”>string,tmp__bu£l) ;  /*  assign  input  string  */ 
tc->length  ■  3trlen(tc->string) ;  /*  find  length  of  the  string  */ 
break; 
case  INPUT: 

strepy (tc->3tring, "Os") ; 
tc->length  -  2; 
break; 
default; 
break; 

) 

return (tc) ; 


) 


di3play__tc  (tc,  xl,  yl,  x2,  y2) 

Tima  *tc; 

int  xl,yi,x2,y2; 

function:  displays  time  constraint  in  tha  drawing  space 

called  by:  procea3_operator () 
redraw_^diagram  () 
calls:  none 

AA*A**AA**AA**AA  AA*AA*AAAAAAAAA*AA<«A**A**AA*A**AA**AA**A****A****AA*AAAA*Aif***/ 

( 

float  xcent; 

xcent  -  xl  +  ( (x2  -  xl)  /  2.0); 

pw__text  (canvas_pixwin  (drawing_canvas) ,  (int)  xcent-  ( (tc->length)  /2)  ♦'8, 

""  (int)yl-5,PIX  SRC,  NOLI.,  tc->atring)  ; 

) 


Hamo  *external() 

/A*AAA*A<^A**<^AAAA**AAAAAAA***A(**A*AAA*A**AA***^AAAA**AA****I^AAA**A***^***AA 

funcbion:  robucna  the  name  "EXTERNAL"  whenever  it  ia  called.  Zb  ia 

uaed  bo  provide  the  namea  for  the  aource  of  input  linea  and 
deabination  of  output  linea. 
called  by:  create_line () 
procea3__line  () 
calla:  none 

{ 

Name  "n; 


n  ••  (Name  *)malloc  (aireof  (Name) ) ; 
atrcpy (n->atring, "EXTERNAL") ; 
n->length  -8; 
return (n) ; 


/*  alloc  atorage  */ 
/"  aaaign  name  */ 
/*  aaaign  name  */ 


or«ate_^PSDI<() 

function:  createa  the  PSDh  atate'.nenta  repreaented  by  the  uaer'a  data 
flow  diagram.  A  PSDXi  atateinent  of  the  form 

output_linc_name .  30urce_naine  ( :  time^conatraint]  **>d«8tination__naaM 
will  be  conatructed  from  the  information  contained  in  the  operator 
liat. 

called  by;  atore__proc() 
calla ;  none 

( 

Operator  "opjptr; 

Line  *outputjptr; 
char  ^padl; 

char  *poriod  « 

char  *coion  «■ 

char  Harrow  "->■; 

f  ••  fopen("/n/auna2/work/capa/prototype8/graph.linka", "w") ; 
padl  «•  malloc(270); 
padltOJ  -  ' 

op__ptr  «  op__li3t~>head;  /*>  point  at  head  of  the  operator  liat  */ 

while (op_ptr  I-  NULL)  ( 

outputjptr  “  op_ptr->head;  /*  point  line  ptr  at  head  of  line  liat*/ 
while {output jptr  I"  NULL)  ( 

/*  aaaemble  the  padl  atatement  by  concatenating  the  parta  of  the 
FSDL  atatemcnta  together  */ 
padl  •"  atrcat  (p8dl/OUtput_jptr*->name*’>atring) ; 
padl  atrgat  (padl/ period) ; 

padl  •*  atrcat  (padl/opjptr->name->atrlng) ; 
padl  atrcat  (padl/ colon) ; 
if  ( (opjptr->optype  —  OPERATOR)  £« 

(op_ptr->tiine_con8t“>atring  I-  "Oa")) 
padl  ■>  atrcat  (padl,  o7_ptr->tiiae_conat~>atring)  / 
padl  atrcat  (padl/ arrow) ; 

padl  atrcat  (padl/ outputjptr‘*>deat->atring)  ; 

fprintf  (f/ "%a\n"/padl) ;  /*  atore  link  atait  in  file  */ 

padl[0]  ;  /*  reinitialize  */ 

output__ptr  -  outputjptr->next; 

) 

op__ptr  op_ptr->next; 

) 

fcloae  (f ) ; 
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otore__diagram() 


fiincbion:  wcitea  the  current  prototype  design  to  •  file 
called  by:  atorejprooO 
calla:  none 


Operator  *opjptr; 
bine  *ln_ptr; 


g  "  fopcn(”/n/auna2/work/capa/ptototype*/graph,pio"/ "w") ; 
op_ptr  “  op_li3t~>head; 
while {op_ptr  I"  NUIiL)  ( 

fprintf  (g,  "%d\n'‘/opjptr->optype) ; 

fprintf (g, "%d\n",opjptr->xatart) ; 

fprintf (g, "ld\n",opjptr“>yatart) ; 

fprintf  (g,  ''%d\n",op_ptr->x3top)  ; 

fprintf (g, «%d\n",opjptr“>yatop) ; 

fprintf  (g,  "%3\n",opjptr“>nar»e“>8tring) ; 

fprintf  (g,  '*%3\n",op_ptr->time_conat->3tring) ; 

Injptr  «  op__ptr->head; 
while (ln_ptr  I-  NOLL)  | 

fprintf (g,  "ld\n", ln_j)tr->lntype) ; 
fprintf (g, "%d\n",lnjptr->xatart) ; 
fprintf (g^ "%d\n"/ ln_ptr->y3tart) ; 
fprintf (g, "%d\n"^lnjptr->x3top) ; 
fprintf  (g,  "%d\n",  ln__ptr->yatop) ; 
fprintf (g, "%3\n", lnjptr->name->atring) ; 
fprintf  (g,  "%s\n",  ln__ptr“>dest->atting) ; 

Injptr  »»  lnjptr->next; 

) 

opjptr  "  opjptr->next; 

} 

fclose  (g) ; 


) 


tcdraw_diagtom  0 

function:  cedtawa  the  diagrani  in  tha  drawing  spaca 

called  by:  Ioad_j3toc0 

proce33__canva3_^avant9  () 
calls :  draw__ob  jecfc  () 

di3play__najna  () 
di3play_tc() 
draw^arrowhaad () 

*#**aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/ 

{ 

Operator  *opjptr; 
line  *lnjptr; 

pw__writebac)cground  (drawingjpw,  0, 0, 

window_gat (drawing_canvas,CAHVAS_HlDTM) , 
window^gat  (drawing_r.anva3,CAKVAS__HEIGHT) , 

PIX_SRCJ ;  ~ 

opjptr  ••  op_liat->head; 
while (opjptr  l«  MULL)  { 

if (opjptr->optype  OPERATOR)  ( 

draw_ob jact (op_ptr->optypa, opjptr->xatart, opjptr->y3tartj 
opjptr->xatop, opjptr->yatop) ; 
di3play^name(op__ptr->naBMif  OPERATOR^  op_j)tr->x3tart, 

opjptr->y3tart, opjptr->x8top/ op^jptr->yatop) ; 
display_tc (op_ptr->ti»a_con3t, opjptr->xatart, opjptt->yatart/ 
op_j)br->X3top,op_ptr->yatop) ; 

) 

Injptr  «  opjptr->head; 
while (Injptr  1"  NULL)  ( 

draw_ob jact (ln_ptr->lntypa, lnjptr->xatart/ lnjptr->yatart, 
ln_ptr->x8top, ln_ptr->y3top) ; 
if  (lnjJtr->lntypa  —  SELr_LOOP) 

draw_^arrowhead (lnjptr->X8top, lnjptr”>yatop, 

lnjptr->x8top/ln_ptr“>y8tart) ; 

elae 

draw__arrowhaad (lnjptr->x8tart, ln_ptr->y8tart/ 
lnjptr->x8top, lnjptr->y8top) ; 
diaplay_name (ln_ptr->narae, lnjptr->lntype/  lnjptr->x8tart/ 
lnjptr->y3tart, ln_ptr->xatop,lnjptr->y8top) ; 

Injptr  lnjptr->next; 

) 

op_pbr  ••  opjptr->r.ext; 

) 

) 
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draw_arroMhca«l(^ir  yif  «2#  y2) 
int  xl,  ylf  x2,  y2; 

Cuiiction:  draws  an  arrow  head  at  the  end  o£  a  line  at  the  approftrlate  angle 
called  by:  proceaa^llne {) 

rcdrow__8ccowhead  () 
calls:  none 

( 

int  xl_r  ina,  yl^ttana,  x2^trana,  y2_trana; 

int  xpfc  yptl,  xpt2,  ypt2, 

xp  tranS;  yptl^trana,  xpt2_tran3/  ypt2__trana; 
double  let  \,  theta; 


/•  translate  the  line  to  the  origin  •/ 
xl^trans  -  xl  -  x2; 
yl][tran3  "  yl  -  y2; 

/•  find  the  length  of  the  line  */ 

length  "  3qtt(pow( (double) xl^trans, 2.0)  +  pow( (double) yl_trana, 2.0) ) ; 

/•  find  the  angle  between  the  line  and  the  x  axis  •/ 
theta  M  acoa  ( (double)  xl_^trans/length) ; 

/*  calculate  the  coords  of  the  points  of  the  arrowhead  */ 
xptl  «  ARROH_LEHCTM  •  COS (theta  +  PI  /  6.0); 

yptl  ••  ARROH~tEHGTH  *  sin  (theta  +  PI  /  6.0); 

Xpt2  ••  ARROM“liENGTH  *  cos  (theta  -  PI  /  6.0); 

ypt2  ••  ARROH~LBHSTH  •  sin  (theta  -  PI  /  6.0); 

/•  reflect  y  coords  across  x  axis  if  yl^trans  i.s  negative  */ 
if  (yl__ttan8  <  0)  ( 
yptl  “  -yptl; 
ypt2  ••  -ypt2; 

) 

/*  translate  the  coords  of  the  arrowhead  out  to  the  posit  of  the  line  */ 

xptl_ttari3  "  xptl  +  x2; 

yptl_tran3  •«  yptl  +  y2; 

xpt2__tran3  xpt2  +  x2; 

ypt2__tran3  *•  ypt2  +  y2; 

/*  draw  the  point  of  the  arrow  •/ 

pw_vectot (drawingjpw,  xptl^trans/  yptl^trans,  x2,  y2,  P1X__SRC/  1); 
pw__vector (drawing_j3w,  xpt2_trans,  ypt2^tran3/  x2,  y2,  PIX_SRC,  I); 
pw~vector (drawing__pw,  xptl_bran3,  yptl^trans,  xpt2_ttan3,  ypt2_trans, 

”  pix  src7  1);  "  ” 


APPENDIX  E  LINK  STATEMENT  ANALYZER 


- 

Progcam:  nodes. p 
Authoc:  Hank  Raum 

J<a3t  Modified:  9  December  89  by  Laura  J.  Nhite 

- - - ,j 


program  CreateHodea  (inputs output) ; 

const  (*  Global  Constants  *) 

period  *•  ' . ' ; 
colon  «  ' ; ' ; 
arrow  «  ; 

blank  ; 

EXTERHAL  -  ^EXTERHAL 


type 

stringSO  *•  packed  array  (0 
DataPtr  ••  ’DataType; 
DataType  record 
Natne:  stringSO; 

Link:  DataPtr; 
end;  (*  Datatype  •) 
OperPtr  'Operator; 
Operator  ••  record 
OpName:  stringSO; 
XnputList:  DataPtr; 
ZnListTail:  DataPtr; 
OutputList:  DataPtr; 
OutListTail:  DataPtr; 
StateList:  DataPtr; 
StateListTail:  DataPtr; 
MET:  stringSO; 

Link:  OperPtr; 
end;  Operator  *) 


(*  Node  for  Linked  List  *) 
(e  of  Nodes  *) 


Node  of  Linked  List  of  Operators  e) 
(*  Operator  Nasw  *) 

(*  Head  Pointer  to  Input  List  *) 

(*  Tail  Pointer  to  Xnput  List  *) 

(*  Head  Pointer  to  Output  List  *) 
(*  Tail  Pointer  to  Output  List  *) 
(*  Head  Pointer  to  State  List  *) 

(*  Tail  Pointer  to  State  List  a) 

(*  Maximum  Execution  Time  *) 


..79]  of  char; 


( 


var 

OpHead:  OperPtr; 
OpTail:  OperPtr; 
DataHead:  DataPtr; 
DataTail:  DataPtr; 


(*  Head  of  Operator  List  *) 
(*  Tail  of  Operator  List  *) 
Head  of  Data  List  *) 

(*  Tail  of  Data  List  *} 


(* 


*) 
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pcocftducft 


ReadToken  (Ue].imet«R:char; 

vac  token: abringSO) ; 


{*  Rends  PSDIj  Link  statements  from,  standara  input,  one  token  at  *) 
(*  a  time.  Delimeters  are:  period,  colon,  arrow  and  End  oC  Line  *) 


var 

ndx: integer; 
ch:  char; 

begin 

ndx  :"  0;  (*  initialixe  *) 

read(ch) ; 

while  (ch  <>  delimeter)  and  (not  eoln)  do 
begin 

token (ndx)  :«  ch;  (*  Gets  token  character  by  character  *) 

read(ch);  (*  until  delimeter  or  eoln  *) 

ndx  :"  ndx  +  1; 
end;  (*  while*) 

if  eoln  then  token (ndxj  :-  ch;  (*  Gets  last  character  before  *) 
if  delimeter  «  arrow  then  (*  end  of  line  *) 

begin 

read(ch);  read(ch);  (*  remove  rest  of  arrow  *) 

end;  (*  if  *) 

if  eoln  then  readln;  {*  resets  line  *) 


end;  (*  ReadToken  *) 
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pcoceduce  ReadOperM«t (var  OpecI,  Mat:  atringSO) ; 

(*  Reads  PSDL  Link  statements  from  standard  input,  one  token  at  *) 
(*  a  time.  Determines  Operatorl  and  Maximum  Execution  Time  *) 


vac 

ndx: integer; 
ch:  char; 


begin 

ndx  :•*  0; 
read (ch) ; 

while  (ch  <>  colon)  and 
begin 

Oped  (ndx)  ch; 
read(ch) ; 
ndx  ndx  +  1; 

end;  (*  v  Ule*) 

if  ch  colon  then 


(*  initialize  *) 

(ch  <>  arrow)  do 

(*  Gets  token  character  by 
(*  until  delisMter  or  oln 

(*  end  of  line  *) 


character 

•) 


begin 
ndx  0; 
read  (ch) ; 

while  ch  <>  arrow  do 
begin 

Met (ndx)  ch; 
read (ch) ; 
ndx  ndx  +  1; 
end;  (*  while*) 
end;  (*  if  *) 
read (ch) ;  read (ch) ; 
end;  (*  ReadToken  *) 


(*  Gets  token  by  character  *) 

(*  until  delisteter  or  eoln  *) 


(*  reatove  rest  of  arrow  *) 


*) 


(* 


*) 
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function  OpScatch  (Head;  OperPtc; 

Tacget:  atringSO) :  OpecPtc; 

(*  Searchea  Operator  hist  for  Target  atring,  returna  pointer  *) 
(A  to  target  if  found/  otherwiae  NIL 

begin 

if  Head  nil  then 

OpSearch  nil  {*  empty  iiat  *) 

elae  if  Head'.OpName  Target  then 
OpSearch  :>•  Head  (*  target  found  *) 

elae 

OpSearch  :•»  OpSearch  (Head".  Link,  Target); 

end; 


(* 
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procedure  OpAdd  (var  Head:  OperPtr; 

var  Tail:  OperPtr; 

Target:  atringOO) ; 

(*  Adda  new  Operator  to  end  o£  linked  iiat  *} 


var 

p:  OperPtr; 
begin 

if  Head  •*  nil  then 
begin 
new(p) ; 

Head  :••  p; 

Tail  :••  p; 

p“.OpMame  :••  Target; 
p*  .Xnputbiat  :•>  nil; 
p* .ZnLiatTail  :«  nil; 
p*  .OutputLiat  nil; 
p*  .OutliistTail  :»  nil; 
p'.Link  :-  nil; 
end  (*  if  *) 
elae 

begin 
new (p) ; 

Tail*. Link  p; 

Tail  :••  Tail*. Link; 
p'.OpName  :•■  Target; 

*  p'.ZnputLiat  :«  nil; 

p* .ZnLiatTail  :>«  nil; 
p* .OutputLiat  :»  nil; 
p~  .OutLiatTail  !■•  nil; 
p'.StateLiat  :■•  nil; 
p*  .StateLiatTail  :■■  nil; 
p*.Link  :•■  nil; 
end  {*  elae  *) 
end;  (*  OpAdd  *) 

- 


(*  temp  pointer  *) 

Liat  ia  empty  *) 

(*  Create  new  head  node  *) 

(*  Initialize  new  liat  *) 

(*  Liat  not  empty  *) 

{*>  Add  new  node  after  tail  *) 

(*  Initialize  new  liata  *) 
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function  Seacch  (Head:  DataPtr; 

Tac9et:  atring80) :  DataPtc; 

(*  SeaccHea  Data  Liatfoc  Target  atring,  returna  pointer  *} 
(*  to  target  if  found,  otherwiae  NXZ,  *) 

begin 

if  Head  "  nil  then 

Search  nil  (*  en.pty  liat  *) 

elae  if  Head”. Name  »  Target  then 
Search  Head  {*  target  found  *') 

elae 

Search  Search  (Head*  .Link,  Target); 
end;  (^  Search  *) 


(* 


*■) 


198 


pcQceduce  Add  (v«r  Head:  DatePtc; 

vac  Tail:  DataPtc; 

Target:  atcingOO) ; 

(*  Adds  new  Data  to  end  ot  linked  lists  *) 


vac 

p:  DataPtc; 
begin 

Li  Head  *•  nil  then 
begin 
new  (p) ; 

Head  :»  p; 

Tail  :••  p; 
p'.NaiM  :■■  Target; 
p^.^ink  :••  nil; 
end  (•  if  •) 
else 
begin 
new (p) ; 

Tail", Link  :-  p; 
Tail  Tail*. Link; 

p'.HajM  :•■'  Target; 
p".Link  :•«  nil; 
end  else  *) 
end;  OpAdd  •) 


(*  Temp  pointer  *) 

List  is  esipty  *) 

(*  Create  new  node  *) 

(*  Initialize  new  lists  *) 

List  not  etspty  *) 

{*  Add  new  node  after  tail 

(*  Initialize  new  lists  *) 


{• 


*) 
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pcoceduce  LoadD&taStsuctucQ (vac  OpHead,  OpTall:  OpacPbc; 

vac  DataKead,  OataTail:  DataPtc) ; 

(*  Loads  bokona  inbo  Daba  Sbcucbucea 


vac 

Cucccnb;  OpecPbc; 

Oaba^  Meb:  abcingSO; 

Oped#  Opec2:  abcingSO; 

begin 

Daba  :*•  blank; 

Oped  blank; 

Meb  :«  blank; 

Oper2  ;«  blank; 

while  nob  eo£  do 
begin 

ReadToken (period# Daba) ; 

KeadOpecMeb  (Oped# Meb) ; 

ReadToken('  '#Oper2); 
i£  Oped  <>  EXTERNAL  bhen  (*  Keywocd  EXTERNAL  ia  nob  *) 

begin  (*  an  Opecaboc  a) 

a«gv  on  nexb  ababemenb  •••••••*•••) 

Cuccenb  OpSeacch(OpHead#Oped) ; 
i£  Cuccenb  *"  nil  bhen 

begin  (*  Add  Opecaboc  1  •) 

OpAdd  (OpHead#OpTail#Oped) ; 

Cuccenb  :«•  opSeacch(OpKead#Opecl) ; 
end;  (•  i£  *) 

Cuccent" .MET  Meb;  (*  Enbec  Maximun  Execubion  Time  *) 

(*  Add  Daba  bo  Opecaboca  Oubpub  Liab  *) 
i£  Oped  "  Opec2  bhen 
begin 

i£  Seacch (Cuccenb'. SbabeLiab# Daba)  nil  bhen 

Add(Cucrenb''  .SbabeLi3b#Curcenb*  .SbabeLiabTail# 

Daba) ; 

end 

else 

i£  Seacch (Cuccenb". OubpubLisb# Daba)  nil  bhen 

Add (Cuccenb". OubpubLiab# Cuccenb" .OubLiabTail# 

Daba) ; 

end;  (*  if  *) 

i£  Oper2  <>  EXTERNAL  bhen  (*  Keywocd  EXTERNAL  ia  nob  *) 
begin  (*  an  Opecaboc  *) 

Cuccenb  :»  OpSeacch (OpHead#Oper2) ; 
if  Cuccenb  nil  bhen 

begin  (*  Add  Opecaboc  2  *) 

OpAdd (OpHeBd#OpTail#Opec2) ; 

Cuccenb  OpSeacch  (OpHead#Opec2) ; 
end;  (*  if  *) 


(*  Temp  poinbec  *) 
(«  PSDL  Tokens  •) 


(*  Inibialixe  Sbcinga  *) 


(*  Geb  bokena  •) 
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(*  Add  Data  to  Opacatora  Input  Liat  *) 
if  Operl  "  Opec2  then 
begin 

if  Search  (Current  *'.StateJiiat,  Data)  nii  then 

Add (Current* . StateLiat^  Current* . StateDiatTail/ 

Data) ; 

end 

else 

if  Search (Current*. XnputDiat, Data)  »  nil  then 
Add  (Current* .  InputLiat,  Current* .  ZnZtiatTail, 

Data) ; 

end;  (•  if  ') 

(*  Enter  new  internal  Data  Streaaia  in  Data  Liat  *) 
if  ((Operl  <>  EXTCAMAL)  and  (Oper2  <>  EXTXAMAL) )  and 
(Operl  <>  Oper2)  then 
if  Search  (DataHead/ Data)  nil  than 
Add (DataHead,DataTail, Data) ; 

Data  bl*nk;  {*  Aeaet  Stringa  *) 

Operl  blan)c; 

Met  :«•  blan)c; 

Oper2  ;«•  blank; 
end;  (*  while  *) 
end;  (*  LoadDataStructure  *) 

(• - *) 
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proceduce  Writ«Stcing (var  File:text;  Str;  abringOO) ; 


vac 

nclx;  integ«5r; 

begin 

ndx  0; 

while  Sbc(ndx}  O''  do 
begin 

write (File^Stc (ndx)) ; 
ndx  ndx  +1; 
end;  while  *) 

end;  {'•  WriteStcing  •) 


202 


procedure  MxkePSDL  (!{e«C  DperPtr)  ; 

(*  Gen«c«c«a  partial  P50L  Sp«ci£ication  foe  aach  n«w  Oparator  *) 
(*  in  the  Graphical  dacoa^oaition  *) 


type 

atcing42  •>  packed  array  (0,.41)  of  char; 


var 

Currant:  OparPtr;  Tamp  pointara  *} 

XnTeaip:  DataPtr; 

OutTenp:  DataPtr; 

StataXamp;  OataPtr; 

Outrila:  taxt; 

KodeMama:  atring42;  {*  Unix  fila  naata  «} 

bagin 

Currant  Kaad; 

KodaHataa  '/n/auna2/work/capa/prototypaa/MawHoda.01' ; 

while  CurrantO  nil  do 
bagin 

rawrita (Outrila, HodaMaaka) ;  (*  Craata  naw  fila  *) 

(A  output  P3DL  *) 
writa (Outrila, *  OPERATOR  * ) ; 

HritaString  (Outrila,  Currant**  .OpMaata) ; 

writaln (Outrila) ; 

writaln (Outrila) ; 

writaln (Outrila, * SFECZrxCATION^ ) ; 

writaln (Outrila) ; 

XnXeaip  Currant'.Xnputbiat; 

if  XnXaaqp  <>  nil  than  (*  Ganarata  Xnput  liat  *) 

bagin 

writa (Outrila, • XMPUT  • ) ; 

MriteString  (Outrila,XnTaiap'‘.Maiaa) ; 
writaln (Outrila) ; 

XnXati^  XnTaRip''.Iiink; 
while  XnTaap  <>  nil  do 
bagin 

writa (Outrila, '  ; 

MriteString  (Outrila,  XnTaa^'*  .Maata) ; 
writaln (Outrila) ; 

XnTaiop  XnXamp'.Link; 
end;  (*  while  *) 
writaln (Outrila)  ; 
end;  (*  if  *) 

OutXanp  :»  Currant' .OutputLiat; 
if  OutXemp  <>  nil  then 

begin  (*  Ganarata  Output  liat  *) 

writa (Outrila, ' OUTPUT  ' )  ; 

MriteString  (Outrila, OutX^smp'  .Nana)  ; 
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wciteln(OutrXXe) ; 

OutTemp  ;«  OutTemp“,Link; 
while  OucTemp  <>  nil  do 
begin 

weiteCOutFile^^ 

WriteString (CutrilefOutXcmp* .Nium) ; 
wciteln(OutFile) ; 

OotTemp  OufcXemp" .Link; 

end;  while 

weiteln{Outrile) ; 
end;  (•  if 

SbeteXesnp  :**  Current*. SheteLiet; 
if  StcteXemp  <>  nil  then 

begin  (*  Generate  State  liat 

write (Outrile, 'SIAXE  *)} 

HriteString (Outrile, StateXemp* .Name) ; 
writeln (Outrile) ; 

StateXemp  StatoXemp* .Link; 
while  StateXemp  <>  nil  do 
begin 

write (Outrile/ *  ' ) ; 

HriteString (Outrile/ StateXemp* .Name) ; 
writeln (Outrile) ; 

StateXemp  :«<  StateXemp* .Link; 
end;  (*  while  *) 
writeln (Outrile) ; 
end;  (•  if  *) 

write (Outrile/ 'MAXIMUM  EXECUTION  TIME  '); 
HriteString (Outrile, Current* .MET) ; 
writeln (Outrile) ; 
writeln (Outrile) ; 

writeln (Outrile, ' END' ) ; 

Current  :*>  Current*  .Link; 

(*  Dynamically  create  new  file  name  *) 
if  NodeName[41]  ••  '9'  then 
begin 

NodeName(41]  'O'; 

NodeName{40]  :*•  9UCc(NodeName[40]) ; 
end  (•  if  *) 
else 

NodeName[41]  aucc  (NodeName  [41] ) ; 

end;  (*  while  *) 

(*  MakePSDL  *] 

- 
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procedure  MakeDataStreem  (Head:  DataPtc) ; 


(*  Generate  PSDIj  Data  Stream  *) 

var 

Temp:  DataPtr; 

OutfiJLe:  text; 

begin 

rewrite (Outfile, ' /n/auna2/work/cap8/prototyp«s/padl.da' ) 
writein(Out£iie) ; 
i£  Head  <>  nil  then 
begin 

Temp  :•■  Head; 

write (Out file, 'DAT\  STREAM  '); 

HriteString (Out file, Temp ".Haiie) ; 
writeln(Outfile} ; 

Temp  :••  Temp* .Link; 

while  Temp  <>  nil  do 
begin 

write (Outfile, '  *); 

HriteString (Outfilc, Temp*. Naate) ; 
wrlteln (Outfile) ; 

Temp  Teatp*.Link; 
end;  (*  while 
writeln (Outfile) ; 
end;  {*  if  •) 
end;  (*  MakeDataStream  *) 


{• 


begin  (*  main  *) 

LoadD«t«Sttuctuc«i(Opllead,  OpTail,  DataHead,  DataTail) 
MakePSDLCOpKead) ; 

KakeDAtaScceam(Dataiiead) ; 
end. 
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APPENDIX  F  ICON  FOR  GRAPHIC  EDITOR 


/• - 

/* 

/*  purpo:i«: 
/•  author: 
/♦  date: 

/. - 


editor. icon 

icon  for  graphic  editor 
roger  thorstenaon 
dec  XS89 


rormat__ver3ion*»l,  Kidth'‘(4,  Height-64#  Depth-l#  Valid__bita_per_it'*a-X6 

Oxrrrr#  Oxrrrr#  Oxrrrr#  Oxrrrr#  oxsooo#  oxoooo#  oxoooo#  oxooox, 

0x8000#  OxOuOO#  0x0000#  0x0001#  0x8000#  0x0000#  0x0300#  0x0001# 

0x8000#  0x0000#  CxOrOO#  0x0001#  0x8000#  0x0000#  OxlBOO#  0x0001, 

0x8000#  0x0000#  0x3300#  0x0001#  0x8000#  0x0000#  0x6500#  0x0001# 

0x9000#  0x0000#  0x8600#  0x0001#  0x8000#  0x0000#  0x8X00#  0x0001# 

0x8000#  0x0001#  0x1200#  0x0001#  0x8000#  0x0003#  0x1600^  ^xOOOl# 

0x8000#  0x0002#  0x2400#  0x0001#  0x8000#  0x0006#  0x2400#  JxOOOl# 

0x8000#  QxOOOA#  0x4800#  0x0001#  0x8000#  0x0012#  0x9800#  0x0001# 

0x8000#  0x0014#  OxrOOO#  0x0001#  0x8000#  0x0025#  OxAOOO#  0x0001# 

0x8000#  0x0045#  0x2000#  0x0001,0x8000#  0x0086#  0x2000#  0x0001# 

0x8000#  0x0O8C#  0x4000#  0x0001#  0x8000#  0x0080#  0x8000#  0x0001# 

0x8000#  0x0388#  0x8000#  0x0001#  0x8000#  0x0280#  0x0000#  0x0001# 

0x8000#  0x0297#  0x0000, 0x0001#  0x8000#  0x04BA#  0x0000#  0x0001# 

0x8000#  0x04A2#  0x0000#  0x0001#  0x8000#  0x08C4#  0x0000#  0x0001# 

0x8000#  0x08C8#  0x0000#  0x0001,0x8000#  0x1888#  0x0000#  0x0001# 

0x8000#  0x1990#  0x0000#  0x0001,0x8000#  0x3930#  0x0000#  0x0001# 

0x8000#  0x2A60#  0x0000#  0x0001#  0x8000#  0x2BE0#  0x0000#  0x0001# 

0x8000#  0x2E80#  0x0000#  0x0001,0x8000#  0x4880#  0x0000#  0x0001# 

0x8000#  0x4900#  0x0000#  0x0001#  0x8000#  0x1)200#  0x0000#  0x0001# 

0x8000#  0x9600#  0x0000#  0x0001#  0x8000#  OxACOO#  0x003r#  OxEOOl# 

0x8000#  0xC800#  0x0020#  0x2001#  0x8001#  0x7000#  0x0020#  0x2001# 

0x8001#  OxCOOO#  0x03rr#  OxFEOl#  0x8003#  OxCOOO#  0x0200#  0x0201# 

0x8003, 0x0000#  0x02ES#  0x2A01#  0x8002#  0x0000#  0s0247#  0x3201# 

0x8006#  0x0000#  0x02E5#  0x2A01#  0x800C#  0x0000#  0x0200#  0x0201# 

0x8008#  0x0000#  0x03rr#  OxFEOl#  0x8000#  0x0000#  0x0000#  0x0001, 

OxFFFF#  OxFFFF#  OxFFFF#  OxFFFF#  0x8000#  0x0000#  0x0000#  0x0001# 

0x8000#  0x0410#  0x2000#  0x0001#  0x8000#  0x0410#  0x2000#  0x0001# 

0x8000#  0x0400#  0x2000#  0x0001#  0x8078#  0x7470#  0xF878#  OxBBOl# 

0x8084, 0x8C10#  0x2084#  0xC401#  0x8084#  0x8410#  0x2084#  0x8001# 

OxSOFC#  0x8410#  0x2084#  0x8001#  0x8080#  0x8410#  0x2084#  0x8001# 

0x8084#  OxBClC#  0x2484#  0x8001#  0x8078, 0x7410#  0x1878#  0x8001# 

0x8000#  0x0000#  0x0000#  0x0001#  OxFFFF#  OxFFFF#  OxFFFF#  OxFFFF 
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APPENDIX  G  SSL  SPECIFICATION 


- 

file;  p3dl.ea.39l 

purpose :  ebatrect  eyntex  foe  padl  editor 

author;  lauce  j.  white 

date:  1«  nov  ^9 


root  padl_cociponont8; 

list  padl^oontponente; 

padl^^compcaefita 
T  PaulNilO 

I  PadlPair (component  padl^componenta) 


component 

:  HoComponent 0 
I  Data  (id  type^^spec  type_impl) 

I  Op  (id  operator^apec  operator__impl} 


:  IdNullO 
I  Xd(XDEHTXFXER) 


operator_apec 

:  OpSpec(optional_inter£ace  optional__keyword8  optional^deacription 
optional^axioma) 


type_apeo 

:  TypeSpec (optional_^type_declaration8  optional_operator8 

optional_keyword8  optional_de8cription  optional_axioffi8) 


optional  liat  optional_operator3; 
optional_operators 
;  OpLiatHiK) 

I  OpList (type_op_3peo  optional_operatora} 
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type__op_3poc 

;  TypeOpNllO 

I  TypeOpSpec (id  oper*toc_apec) 


opbional  liab  optional_int«c£ac«; 
optionaI__inter£«ce 
:  XnbarFacaNil {) 

I  IntecFaceLiab  (attcibube  optional.__intar£aca) 

; 

optional  optional^raquiramants; 
optional__requireMnt3 
:  RaqmtaTracaNona 0 
I  ReqmtaProtnpb  () 

I  ReqmbsTrace (id_li3b) 


opbional  opbionaljkayworda; 
opbional__)ceywocd3 

:  KeyHordaHone {) 

I  KeyHordaPrompb 0 
I  KeyMojcda  (id__liab) 


opbional  opbional__d«acripbion; 
opbional_d«accipbion 

:  Xn£onaalDaacNone  () 

I  XnformalProtnpb  () 

I  Xn£onnalDeac(baxb) 


opbional  opbional_axio<n8; 
opbional^axiona 

:  FormalDaacNona 0 
I  FormalProopb () 

I  FomalDasc  (baxb) 


abbribube 

:  EmpbyAbbcO 

I  Xnpub  (inpub  opbional_requireawnb8) 

I  Oubpub (oubpub  opbional_requiremenba) 

I  Sbabes(abab«  opbional_raquir«iiMnbs) 

I  Generic  (generic  opbional_requirea>enba) 

I  Excepbiona (excepbion  opbional_requiremenba) 

I  TiatingXn£o  (opbional_ineb  opbional_mcp  opbionBl_mrb  opbional_requireMenba) 
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input; 


;  inputTypcDecl (type^decl  nvoro_optlon*l_typ«_daclBr*tlona} 


output 

;  OutputTypeDecl {type_decl  more__option«l__typ«_d«cl«s«tiona) 


state 

;  StateTypeDeci  (type__decl  mote_optional__type__d8olatationa 
exp  optional__oxp_li3t) 


generic 

:  GenericXypeDecl  (type__decl  more_^optional__type_,deciarations) 


exception 

:  ExceptionLiat (id^liat) 


optional  optional_inet; 
optional_met 

:  MetNoneO 
I  MetPromptO 
I  Met (time) 


optional  optionaljncp; 
optionaljncp 

:  McpNoneO 
I  McpPromptO 
I  Mcp  (time) 


optional  optional_mrt; 
optional_mrt 

:  MrtNoneO 
I  MrtPromptO 
I  Mrt (time) 


time 

:  Time (integer  optional_unit) 


integer 

;  IntegerNilO 
I  Integer  (Xi^TEGER) 
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optional  optional__unit; 
optionai_unit 
:  UnitNilO 
I  UnitPxoRipt  0 
I  UnitMs  0 
I  UnitSecO 
I  UnithlinO 
I  UnitHra  () 


type_decl 

:  TypttDecl  (id_liat  type_nain«) 


optional  Hat  mor«_optionaI_typejdeclaratlon8; 
inoxe_^optional^type_daclarationa 
:  MoreDeclIiiatNil  0 

I  MoxoDaclXilat  (mor«_typ«_dacl  x>or«_optional_typ«_d«claxationa) 


mote__typ«_dacl 

:  MoreDeclNil 0 

I  MoxeTypeDacl  (id_liat  typ«__naaM) 


optional  liat  optional_typ«_declacationa; 
optional_typ«__declasation8 
:  OptDeclItistNil  () 

I  OptDeclLiat  (opt_type_jdecl  optional__typ«_d«claration8) 


opt_typ«_d«  cl 

C^tDeolNilO 

1  OptTypeDeci (id_li8t  type_nam«) 


liat  id_liat; 
id__liat 

""  ;  IdMilO 

I  IdPair(id  id_li8t) 


type_naine 

:  TypeNaine(id  optional_generic__Bctuala) 
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optional  optional__geneEic_,actual3; 
optional_genecic_actuBla 
:  GenActualNil () 

I  GonActualPrompt (} 

I  GenAcbual  (type_^decl  moEe__optional_typejdieclaEations) 


opfiEatOE_impl 
:  OpXmplO 

I  OpIniplPadl  (diagcam  opbionBl_at:Eeains  opbionaljbiiMEa 

optlonal_contEol_con3tEainta  optionaljdaacription) 
I  OpXmplAda (id  text) 


type__impl 

:  TypelmpK) 

I  TypeXmplOp  (type^name  optional__opecatOE__inpleia«ntationa) 
I  TypeXmplAda(id  text) 


optional  list  optional__opeEatOE__iroplementation3; 
optionBl_opeEator_iiRplementations 
:  TypeLiatNilO 

I  Typeliiat  (type^op_iinpl  optional_opeEatoc__implementationay 


type_op^impl 

:  TypeOpImplNil () 

I  TypeOpXmpl (id  opeEatoe_impl) 


diagram 

:  Diagram (link  optional_linka) 


optional  liat  optional^linka; 
optional_linka 

:  IiinkLiatNilO 

I  linkliiat  (opt_link  optlonal_linka) 


opt__link 

OptliinkNiK) 

I  OptLink(id  id  optional_time  id) 


link 

:  Link (id  id  optional_time  id) 
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optional  optional^tlme; 
optional_titne 

;  OptTlm«Mil() 

I  OptXimaPrompt {) 

I  OptTime (time) 


optional  optional__atr«ams; 
optional^atreama 

:  StreamaNil 0 
I  StceamaProflipt  () 

I  St reama  (typ«_jdiacl  avor«_optional_typ«_daclarationa) 


optional  optional_,tiin«r3; 
opt  iona  l__t  ime  r  a 
:  TiiiMraKilO 
I  TimaraProfopt  (} 

I  Timara (id_liat) 


optional  optional_control_conatrainta; 
optional_^control_^conatrainta 
:  ControlHil (} 

I  ContcolProaiptO 

I  Control (constraint  optional_constrainta) 


constraint 

!  Constraint (id  optional__triggars  optional_pariod  optional^£inish 
conatraint_options) 

a 

f 

optional  list  optional_conatraint3; 
optional_conatrainta 
:  OptConNilO 

I  OptConliiat  (optional__con8traint  optional__conatraints) 

i 


optional_constraint 

:  OptConatraintNil 0 

I  OptConatraint (id  optional_triggars  optionaljpariod  optional_£inish 
constraint_option8) 


optional  optional__triggar8; 
optional_triggera 

:  TriggarsNone (/ 

I  TriggersProci^.'t  () 

I  TriggeraChoice (triggar8_choica) 
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triggec3_choico 

;  TriggerChoiceHil () 

I  Tsiggecs (trigger) 

I  TriggeraX£(opt^trigger  predicate  optional^^requirements) 


trigger 

:  TriggerNilO 

I  AilTrigger (id^liat  optional^requirementa) 

I  SomeTrigger(id_liat  option*l_requirementa) 


optional  opt^trigger; 
opt__triggor 

;  OptXriggQtNilO 
I  OptTriggerProfltpt  () 

I  OptAllTrigger (id_liat) 

I  OptSomeTrigger  (id^^liat) 


optional  optional_period; 
optional_period 

;  periodHoneO 
I  PeriodProntpt  (} 

I  Period  (time  opUional__requireraenta) 


optional  optional_£iniah; 
optional^finiah 

:  riniahNoneO 
I  FiniahPrompt 0 

I  rini3h(time  optional__x«quirem«nts) 


optional  liat  conatraint_optiona; 
conatraint_optiona 
:  ConLiatNone 0 

I  ConLiatOpta (con_opta  conatraint__option3) 


con_opt3 

:  ConOptaNilO 

I  OptOutput (id_li3t  predicate  optional^requirementa) 

I  OptException  (id  optional_predicate  optional__requirenvent3) 

I  OptTimer (timer_operation  id  optionaljpredicate  optional ^requirementa) 
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t  Ime  r__ope  r«  t  ion 
OptNilO 
I  ReadO 
I  Reset  0 
I  Start  0 
I  StopO 


predicate 

:  Predicate  (relation  optionalJt}oolean_relations) 


optional  optional_jpredicate; 
optionaljpredicate 

:  OptPredicateNilO 
I  OptPredProRipt  () 

I  OptPredicate (relation  optional_boolean__relations) 


relation 

:  RelNil 0 

I  RelSinple  (aiaiple_expr«8sion) 

I  RelCouplex(aiaiplejexpreaaion  relational^operator  8i«pl«_expraa8ion) 


boolean__relation 
:  BoolNoneO 
I  AndRel (relation) 
I  OrRel (relation) 


optional  list  optional_boolean_relations; 
optional_boolean_relationa 
:  RelLiatNilo 

I  RelLiat (boolean_^relation  optional_boolean_relation8) 


siiiiple_expresaion 
:  SimExpNilO 

I  SimXnt(aign  integer  optional_unit) 
I  SimReal (sign  real) 

I  SimXd(id) 

I  SijiO«otXd(id) 

I  SinStxing (string) 

I  SimPred (predicate) 

I  SiinNotPred  (predicate) 

I  SimTrueO 
I  SimFalseO 
I  SimMotTrue () 

I  SimNotFalse () 
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optional  list  optional_exp_iiat; 
optionaX__esp_li3t 
:  ExpMatHilO 

I  Expliiat  (option*l_exp  optional^exp^liat) 


optional__exp 

:  OpcExpHilO 
I  OptExpConat (conatant) 

I  OptExpZd (id) 

I  OptExpCotnplex  (type_nam«  id  «xp  optional__«xp__liat} 


exp 

:  ExpHilO 
I  ExpConat  (conatant) 

I  ExpZd(id) 

I  ExpComplcx (type^name  id  exp  optional_«xp_liat) 


ateing 

:  String (text) 


text 

:  Text (id) 


aign 

;  SignNilO 
I  Sign (SIGN) 


real 

:  RealNilO 
I  P_Real (PREAL) 
0 


relationBl_operator 
:  Rol_None() 

I  Rel_Lt  {) 

I  Rel_Gt  0 
I  Rel_Eq() 

I  Rel_Ne() 

I  Rel__Co() 

I  Rel^LteO 
I  Rel  Gte() 
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constant 

:  ConatNoneO 
I  ConatZnt (integer) 
I  ConatKe«X(real) 

I  ConatTcue (} 

I  ConatraiseO 


APPENDIX  H  SSL  SPECIFICATION 


- 

padl.up.aaX 

unpacaing  rulea  £oc  padl  editor 
lauca  j.  white 
14  nov  89 


file: 

pucpoae: 

author: 

date: 


*/ 


padl  componenta 

7  FadlHil  (8:1 

I  PadlFaic  (8:“("%n"]“] 


component 

:  NoCoffiponent 
I  Op 
I  Data 


:  XdSull 
I  Id 


operator_^apec 
:  OpSpec 


( “ : " I n ( component ) " ] 
(":"%nOPERATOR  "•"•I 
(";"lnXXPB 


(8;:-"<identi£iec>") 

(8: 


t"  :  . . IblnEMD"! 


type__3pec 

T  TypeSpec  . . . "%b%nEMD"l 


operator__impl 
:  OpZmpl 
I  OpImplPadl 
I  OpImplAda 


type_iinpl 

:  Typelmpl 
I  TypeImplOp 
I  TypeImplAda 


(8 : "%n [operator  implementation] "] 

(8:"%nIMPLEMENTATION%t . "%b%nEHD"} 

(8:"%nIMPLEMENTATION  ADA  "'"%t%n(  l%b%nEMD"I 


[8:"%n[type  implementation]"] 

(8 :  "%nIMPI.EMENTATION%t%n""“«%b%nEND"] 
(8:"%nlMPLEMENTATION  ADA  """%t%n(  """  )%b%nEHD"] 
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opcionuXjopecatora 

:  OpLlstNil  (8:] 

I  OpLiat  (t:"(J8J 


typejop_3p«c 

;  TypeOpNil 
I  Typ«Op3p«c 


option«l__intec£«c« 

:  XnCarracaHil 
I  Xntecracetist 


optional__r«quir«iMnta 
RcqmtaTracivMon* 
I  ReqmtaPxo«ipb 
I  ReqmtaTrac* 


option«l_)c«ywotd« 

K«yNordaMon« 

I  KeyNocdaPcompfc 
I  KtyWords 
# 

opblonaljdascriptlon 

:  XnformalDeacHon*  (!:] 

[8 : "%n(d«scciption) "] 

I 8 : "%nDESCRxrTXOH%t%n { " “ " J lb- 1 


[8:] 

(8:"%n(axloM)"] 

18 : " %nAXXOHS%t%n ( ■ " " ) %b« J 


[  “ : ■%n { int«c£ac« ) " ] 
I":"%nXNPUT"‘"%t"’"%b-] 
[“;"%nOOTPUT"-"%t"*"%b") 
(“;"%nSTATES"“"%t"“"%b"l 
[  “ : " InGEHERXC" ""%t"‘"%b"l 
[  “ : "%nEXCEPTXONS%t%n" “ ‘ "lb*  1 
- ] 


I  XnformalPrompb 
I  XnfomalDaac 


optional_axloMa 

FormalDaacKona 
I  roEmalProa^t 
I  FormalDaac 


attribute 

:  EnptyAttr 

I  Input 
I  Output 
I  States 
I  Generic 
I  Exceptions 
I  TimingXnfo 


('*;''ln(optional  operator)"] 
r;"%nOPERATOR  "-*) 


(8:) 

(8:-[)8) 


(8:) 

[8:"%n(requirefaanta}"] 

(|:"%nBy  REQOXREHEHTS%t%n"*"%b"J 


(8:1 

[8:"%n()ieyworda)  "1 
(8:"lnKEywoiU)Slt%n"“"lb"l 
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Input 


:  inpufcTypeDncX 


output 

;  OutputTyp«OecI  l“; 


at«te 

:  SUtoTypoOccX  (-:"%t%n''*'"%nXMITXALbYln"““"lb"] 


gonecic 

;  Gen«iricXypttOecl  (“:"%tln"'“"lb"J 


exception 

;  ExceptionLiat  (“J*) 


optionaI_fflQt 
:  M«tHon« 

I  M«tl?rofflpc 
I  M«t 


optionaljncp 
:  MepNone 
I  MepPrompt 
I  Hep 


(80 

(€;"%n|met|"J 

(8:"%nMAXIM0M  EXECUTXOH  TIME  "‘J 


18:) 

I8:"%n(mcp)"] 

(8:"%nHXNXMUM  CALIiXKG  PERIOD  ""I 


option»l_inrt 
:  MctNon« 

I  MrtPrompt 
I  Mrt 


(8:) 

t8:"%n(rart)") 

(8:-%nMAXIMUM  RESPONSE  TIME 


time 

:  Time 


integer 

:  IntegerNil  (8:  ;"'"<integer>"J 

1  Integer  (8:;“*1 


option«l__unit 

;  UnitNil  [8:J 

I  UnitPrompt  (8:"  (units)") 

I  UnitMs  [8:"  MS"1 
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1  UnitSec 

Ifl;"  SEC") 

I  UnltMin 

tl:"  HIH") 

1  UnitHca 

f 

f 

11:"  HOURS") 

typ«__decX 

;  TypeD«cI 

t 

;  -“) 

inoc«  optional  typ«  doclarationa 

:  Hor«0«clLiatHil 

(«:] 

1  HoroDeclIiiat 

♦ 

(•;'()«) 

j6oi:«__typ®__d«cl 

Mor«D«clNil 

(*:"/%n(iaoi;«  typ«  d«cla)"] 

1  Mo£«TypcO«cl 

« 

i 

(“:-,%n—  :  "“J 

optional__typ«_d«cl«cation« 

:  OptOeclLiatHil 

(«:) 

1  OptDaclLlst 

• 

9 

opt__typ«_^d«cl 

:  OptO«clNil 

(‘':*%n (optional  typa  daol)*] 

1  OptTyp«0«cI 

9 

(*:"%n"-"  :  ■“) 

id__list 

“  :  XdMil 

(•:;-] 

1  XdPair 

« 

9 

(!::--(-,  -)•) 

typ«_nam« 

Typ«N«iM 

• 

9 

(-:-) 

optional  genexic__actuals 

:  GenActualHil 

{«:] 

1  GenActualPrompt 

[8:"  (genaric  actual  paraatatara 

1  GanActual 

t 

(8;-(  — -J-] 

optional_op«£atO£_iinpleiMntation8 

:  TypeXiistNil 

[8:] 

1  Typeliist 

9 

{8:-tl8I 

type_op_impl 

:  Typ«OpXinplMil 

[~:"%n(opa£ator  iaplamntation)' 
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I  TypeOpZmpl 


diagram 

;  Diagram 


optional^linka 

;  XiinkliiatHil 
I  LinkLiat 


opt_link 

OptliinkHil 
I  Opt Link 


link 

:  Link 


optional_^time 

:  OpbTimaNil 
I  OptTimaPrompt 
I  OptTiiM 


optional_atreama 
:  StraamaNil 
I  StrcamaPrompt 
I  Sbreama 


opcional_bimera 
:  TimeraNil 
I  TimeraPrompt 
I  Timer a 


(“;"%nOPERATOR  " 


I 


l“;"%nGRAPH%t'|ji""“"%b") 


(S:] 


t“;"%n (optional  link)"! 
(-;“%n— . . . 


[8 : ) 

(«;"  (time)  ") 
(8;":"-l 


(8:''%n(data  atream)"] 
(8:"%nDkTA  STREAM%b%n""*"%b"l 


(9:] 

[8:"%n(timer)"l 

(9:"%nTIMER%t%n"*"%b"] 


optional_conttol_con3ttaint3 
:  ConbrolNil  [8:] 

I  ConbrolPrompt  (9 :"%n (control  conatrainta) "] 

(8  ;  ••%nCONTROL  CONSTRAINTS%t"’“"%b"  J 


Control 


conatraint 

:  Conatraint 


(";"%nOPBRATOR  %t"' 


*%b"] 


optional_con3traint8 

:  OptConNil  (8:] 
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I  OptConliist: 


optlonal_conatraint 

:  OptConatralntHil 
I  OptConatraint 


0ption8l__tciggee3 
:  I'ciggaraHone 

«k  <■  «#»  *> 

I  TriggaraCholce 

t 

trigget8_cholce 

;  TriggarChoiceMil 
I  Triggttca 
I  TciggeraXf 


trigger 

;  TtiggerMil 
I  AllTrigger 
I  SoiMTsiggax: 


opt_t rigger 

:  OptTriggerNll 
I  OptTriggerPrompt 
I  OptAllTrigger 
I  OpbSomeTrigger 


opt Iona 1  jpe  r iod 
:  PerlodMone 
I  PeriodProoipt 
I  Period 


optional_£ini8h 
:  riniahNone 
I  FiniahProtnpt 
I  Finiah 


con3traint_optio’n8 
:  ConLiatNone 
I  ConLiatOpta 


l-:"%nOPERATOA  . . . 


t9;"%n(triggera}") 
(8:"%nTRIGGEWED  "“J 


(8: "(trigger  choice]"} 

re:"] 

(8;‘"  IF  "‘"J 


(8:" (trigger] "1 
(8s"BF  ALL  """] 
(8;"BF  SOMt  """] 


(8:] 

(8: "(trigger  by]  "] 
(8:"By  ALL  "‘] 
(8:"BY  SOHE  "“] 


(8:] 

(8:"%n(period]"] 
(8:"%nPERlOD  "““] 


[8:] 

(8:"%n(£ini3h  within)"] 
(8:"%nFIHISH  WITHIN  "“"] 


(8:] 

(8:‘(]8] 
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con__opta 

:  ConOptaNil 
I  OptOucput 
I  OptExcepticn 
I  OptXlmor 


timee_,oper«bion 
OptNil 
I  Read 
I  Reset 
I  Stact 
I  Stop 


{*;"%n(con3tialnt  options)") 
(“;"%nOUTPUT  """  ir  "“*) 
(■•:"%nEXCEPTION  "'’') 


(8;"(tijner  operation)”) 
(8; "READ  TIMER") 

(8: "RESET  TIMER") 
(Ss^START  TIMER") 

(8: "STOP  TIMER") 


predicate 

:  Predicate 


optionaljpredicate 

:  OptPredicateNil 
I  OptPredPrompt 
I  OptPredicate 


relation 

:  RelNil 
I  RelSimple 
I  RelComplex 


boolean__relation 
:  OoolHone 
I  AndRel 

I  OrRel 

• 

t 


(*:"■) 


(8:) 

18:"  (ir  predicate)  "] 
(8:"  ir  -*") 


(8i" (relation) ") 
(8:“1 

(8:"%t%n"‘*“"%b") 


(“:"  (boolean  relation)  ") 
(':"  AND  "") 

(-:"  QR  «-] 


optional_boolean_relations 
:  RelListNil  (8:) 

I  Relliist  (8:""1 


siinple_expression 
:  SimExpNil 
I  SivMnt- 
I  SimReal 
I  Simid 
I  SimNotId 
I  SimString 
I  SimPred 
I  SimNotPred 


(8:" (simple  expression]"] 

(8:  —  ] 

(8:-*) 

(8:“] 

(8: "NOT  "*] 

(8:“] 

(8:*) 

(8: "NOT  "“] 
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SimTrue 

SlmFalae 

SimHotTcue 

SifflNotFalse 


optional_exp__li3t 
:  ExptlatNil 
I  Expli^at 


optlonal_exp 

:  OptCxpHil 
I  OpbExpConst 
I  OptExpId 
I  OptExpComplex 


exp 

;  ExpNil 
I  ExpConst 
I  Expid 
I  ExpComplex 


string 

:  String 


text 

:  Text 


sign 

:  SignNil 
I  Sign 


real 

:  RealNil 
I  P_Real 


relational_operator 
;  Rel_None 
1  Rel”Lt 
I  Rel_Gt 
1  Rel_Eq 
I  Rel_Me 
I  Rel_Co 
I  Rel  Lte 


[8: "TRUE") 

18; "FALSE") 

(8: "HOT  TRUE") 
18: "NOT  FALSE") 


(8;) 

I8:“n8) 


(*;",%n{exp|") 

(*:",%n"-) 

l-:-,%n"“) 

{■;",%n"“"."‘"%n{"“''")") 


(8;"texp)") 

[8;-] 

(8:-) 

t8;“"."*"%n("""")") 


t":8) 


18: ;-"<sign>") 
(8:;-*) 


[8: ;-"<real>") 

(8::-8) 


[8:"  [relational  operator)  ") 
[8;"  <  -) 

[8;"  >  ") 

(8;"  -  -) 

[8;"  /-  ") 

[8:"  ;  ") 

[8;"  <-  ") 


225 


I  Uel  Gte 


conatanu 

:  ConattJone 
I  Conatint 
I  ConatReal 
I  ConatTrue 
{  ConatFaXae 
; 


(0:"  >«  "J 


10:" tconatantl ") 
10:'I 
(0:*1 

10:"TRUE"J 
(0: "FALSE"! 
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APPENDIX  I  SSL  SPECIFICATION 


/* - 

me: 

purpose: 

author: 

date: 


IDSNTiriER: 

HHXTESPACE: 

INTEGER: 

PREAL: 

SIGN: 


psdX.lex.sal 

lexical  rules  for  psdl  editor 
laura  j,  white 
13  nov  89 


*/ 


ZdentLex<  (a-xA-E) {a-xA“E_0-9J *  >; 
NhitespaceLex<  (  0  >; 

XntegerLex<  (0-9)*  >/ 

PRealLex<  {0-9) *"."(0-9)*  >; 
SignLex<  (-+)  >; 
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APPENDIX  J  SSL  SPECIFICATION 


- 

fiX«; 

purpose: 

author: 

date: 


padl.ad.aal 

attribute  declaratlona  for  padl  editor 
iaura  j.  white 
13  nov  89 


Xdent 

(ayntheaixed  id  t;); 

Xd^liat 

(synthesized  id_liat  t;); 

PSDL_3ign 

(ayntheaixed  aign  t;); 

PSDL^int 

(synthesized  integer  t;); 

PSDIi_rcal 

(synthesized  real  t;]; 

id 

“  Xdent. t; 

id^^liat 

“  Xd^liat.t; 

aign 

“  PSDI<_aign.t; 

integer 

■*  PSDL_int.t; 

real 

*■  PSOIi_seal.t; 
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APPENDIX  K  SSL  SPECIFTCA'I  lON 


/. - 

£il«: 

purpose: 

author: 

date: 

padl.ci.aal 

concrete  input  syntax  £or  psdl  editor 
laura  j.  white 

13  nov  89 

Xdent 

: :- 

(XDENTXrXER) 

( Xdent. t  -  Xd(XDEMTXI'XER) ; ); 

Id_list 

:  :- 

1 

(Xdent) 

(Xd_li3t.t  ••  (Xdent. t:  :XdNil) ; ) 
(Xdent  Xd_liat) 

(Xd_li3t81.t  -  (Xdent.t;;Xd_llat82.i 

PSDIi__algn 

*  *  Ml 

•  a  "" 

(SXGN) 

(PSDli_sign.t  Sign  (SXGN) ;) ; 

PSDL._int 

a  •  ^ 

(XNTEGER) 

(PSDL_int.t  «  Xnteger(XKTEGER) ; ); 

PSDL__real 

*  *  H 
a  a  " 

(PREAL) 

(PSDL_real.t  -  P_Real (PREAL) ;) ; 

2Z> 


APPENDIX  h  SSL  SPECIFICATION 


/• - 

file: 

purpose: 

author: 

date: 


padl.tt.asl 

template  tcana formations  for  psdl  editor 
laura  j.  white 
12  nov  39 


transform  component 

on  "type" 

<component>  ; 

Data  {<id>/  <type__3pec>,  <typ«_impl>) , 

on  "operator" 

<component>  : 

Op  (<id>f  <oporator_spac>,  <operator__impl>) ; 

transform  type___,op_spec 

on  "entec_operator" 

<type_op_3pec>  ; 

TypeOpSpec (<id>, <operator^3peo>)  ; 


transform  attribute 

on  "input" 

<attribute>  : 

Input (<input>/<optional_requirements>) , 

on  "output" 

<attribute>  : 

Output (<output>, <optional_requirements>} , 

on  "states" 

<atbribube>  : 

States (<state>,<opbional_requirements>) , 

on  "generic" 

<atttibute>  : 
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r 


Generic  (<9enerlc>/  <opbion«l__requlrein«nta>) , 

on  "exceptions" 

<attribute>  : 

Exceptions (<exception>f  <optional_^xequire««nt«>) t 

on  ■timing__in£o" 

<attribute>  : 

TimingZn£o  (<optional_met>,  <optioneil_iacp>r  <optional_Mrt>^ 
<option«l_^requir«iMntt>) ; 


transform  inoro__tYpe__decl 

on  "entet_type__declaration" 
<inore_type__decl>  ; 

MoreTypeDeci  (<id__liat>,  <type__na«a*>)  / 


transfoinn  opt_type__decl 


on  "enter_type__declaration" 
<opt__type_decl>'  ; 

OptTypeDecl  (<id_list>,  <typa_^naM>) ; 


transform  optional_generic_actuals 

on  "ent«r_g«naric_^actualjparam«t«rs" 
<optional_generi(^otual8>  ; 

GenActual  (<typ«_d«cl>f  <mortt_optional__typ«__daolaration8>) ; 


transform  optional_r«quireaMnt8 

on  "onter_requirement8" 

<optional_requirementa>  : 
ReqpntsTrace  (<id_^list>) ; 


transform  optional__)ceywords 

on  "onter_)cey words" 

<optional_)ceywords>  ; 
Keywords  (<i<;  ^list>) ; 


transform  optional_deacription 

on  "enter_description" 

<optional_description>  : 
InformalDesc  «text>) ; 
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transform  optional_axioins 

on  "entet_axiom3" 

<optional.__axiom3>  ; 
FormalDeac (<text>) ; 


transform  optional__time 

on  "enter__time" 

<optional__time>  : 
OptTime (<tim«>) ; 


transform  optional_m«t 

on  "enterJ^ET" 

<optional_met>  ; 
Met (<time>) ; 


transform  optional_mcp 

on  "«nter_MCP" 

<optionaljncp>  : 
Mop {<time>) ; 


transform  optlonal_mrt 

on  "enter_MRT" 

<optional_mrt>  : 
Mrt (<time>) ; 

transform  optional__unit 

on  "milliseconds" 

<optional_unit>  ; 
UnitMs  0 , 

on  "seconds" 

<optional__unit>  : 
UnitSecO , 

on  "minutes" 

<optional_unit>  : 
UnitMin  () , 

on  "hours" 

<ioptional_unit>  : 
UnitHrs () ; 


tr*na£orm  optional__requir«m«nta 

on  ’'enter__E«quicem«nt8'’ 

<opcional__cequicem«nta>  ; 
ReqmtaTrace  (<ld_liat»  ; 


tranaform  optional^atcaama 

on  "entoi:_ati:«ama" 

<optional_8tr«ana>  : 

Streama  {<typ«__dacl>,  <inora_optlonaI_,typa__d«claration8>) ; 


tiranafom  optional__tin«ra 

on  "enter__timera" 

<optional__ti»«ta>  : 

Timaca (<id_liat>) ; 

tranaform  optional_control_con3trainta 

on  "«nt«r^control__conattainta" 

<optional__control_conattaint»>  ; 

Control (<conatraint>f  <optional  constralnta>) ; 


tranaform  optlonal^^constraint 

on  "enter__conatraint" 

<optional_conatraint>  : 

OptConatraint (<id>,  <opbional_tci99ara>,<optional_p«riod>, 
<optional__finiah>,  <conatraint__optiona>) ; 


tranaform  operator_iinpl 

on  "padl_imple»entation" 

<operator_iropl>  : 

OpXmplPadl (<dla9ram>, <optional_str«ama>/ <optlonal_tiaMra>« 

<optional_control_constraint8>, <optional_d«8crlption>) , 

on  "ada__implementation" 

<operator_iinpl>  : 

OpXmplAda (<id>/ <text>) ; 
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ccanafocm  type_impl 

on  "padl^implementation" 

<eypa_impl>  : 

TypeImplOp  {<cype_n»me>f  <option*l_op«r«toc_i»pl«*«nt»tl.on*>) , 

on  "•d«_itnpIem«ntation" 

<type_impl>  ; 

TypelmplAda (<id>/ ; 


tsar.sfors5  cptienel^triggita 

on  "entec^triggess" 

<option»l__ttigg«t9>  ; 
TciggecaChoice (<tsigger3_choice>) ; 


tranaCom  tciggct3__choice 

on  "3imple__ttiggcK3’' 

<trigger3_choice>  ; 

Tciggera (<triggec>) , 

on  "t):igge):3_,with__^if j>redic*t«" 

<ttigget3_choice> ; 

Trigg®t3Xf (<opfe_teigg«c>, <pr«dlcat«>, <optional_t«qult«nMint3>) 


transform  trigger 

on  "all" 

<trigger>  : 

AllTrigger  (<id_li3t>,  <optional__requltem«nt3» , 

on  "some" 

<trigger>  : 

SomoTrigger  (<id__list>,  <optlonal__tequitement3>) ; 


transform  opt_trigger 

on  "all" 

<opt_trigget>  : 
OptAllTrigger {<id_li3t>) , 

on  "some" 

<opt_trigger>  ; 
0ptSomeTtigger(<id_li3t>) ; 
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transform  optional^period 

on  "ent«rjperlod“ 

<optionaljp«riod>  ; 

Poriod  (<ti»«>‘,  <optional._tequir«i8*nta>) ; 


transform  optional__finish 

on  "entar  finish  within" 

<option3i__£ini3h>  : 

Finish  (<ti»e>,  <optional_raquiraaiants>) ; 


transform  con^^opta 

on  "output" 

<con_opt3>  : 

OptOutput (<id_list>, <pr«dicat«>i <optional_r*quiraiMnts>) , 

on  "axcaption" 

<con_opts>  ; 

OptExcaption (<id>, <optional_ptadicata>, <optional_raquitamanta>) , 

on  "timer" 

<conjopta>  ! 

OptTTmet {<timeej3paration>#  <id>, <optionaljpradicata>, 
<optionaI_raquirafMnts>) ; 


transform  optional_pradicata 

on  "antar_pradicata" 

■<optionaljpradicata>  ; 

OptPradicata  {<ralation>,<optional_bool«an__talationa>) ; 


transform  ti»er_oparation 

on  "read_timer" 

<timer_^oparation>  : 
RaadO , 

on  "reaat_timar" 

<ti»at^operation>  : 
Reset  ()  / 

on  "startjtimer" 

<timer_operation>  : 
Start  0 , 
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on  ”3top_ciitsot" 

<tim«!i*_opetation> 
StopO  ; 


tcansfom  rotation 

on  "simplo'* 

<ceXation>  : 

RolSimpie  (<9imple_^expreaalon>) , 

on  "cowples" 

<ceXaticn>  : 

ReXComplex {<3iinple_expres3ion>^  <relational_oparator>/ <3impl«__axpra«9ion>) ; 


OranaCotm  aimple^expreaaion 


on  •’integar^^exp" 

<3imple_expte33ion>  : 

Sitnlnc  (<3ign>/  <integ«t>,  <opfcional__unit>) , 


on  "rcal_exp" 

<3jLmpl«__expre33ion>  : 
SimReal (<aign>, <caBX>) , 


on  "id_exp" 

<3lmpXe_axpra8sXon> 
Simid (<Id>) , 


on  '♦not^id_exp“ 

<3impXe_expre3slon>  : 
Sin\NotId(<ld>) , 

on  "3tting_exp" 

<3iinpXe__«xpra33ion>  : 
SimString (<3tring>) , 

on  "predicate__exp" 

<3impXe_expte33ion>  : 
SimPred (<predlcate>) , 

on  -notjprcdicata_exp" 

<3impXe_expre33ion>  : 
SiinNotPred(<ptedicate>) , 


on  "true" 

<3imple_expte3aion>  : 
SimTtue  () , 


<3implo_exprea3ion>  ; 
SimHotTrua (} , 

on  "false" 

<sitnpla_axpres3ion>  : 
SimFalae  {) , 

on  "not__£al8e" 

<3inipla_axpxa3aion>  : 
SimNotralae () ; 


transform  relational_oparator 
on  "<" 

<relatlonal_oparator>  : 
Rel_Lt(), 

on  ■<-" 

<relational__^oparator>  : 
Rel_Lta  {) , 

on  ">" 

<ralatlonal__oparator>  : 
RalJJt  {) , 

on 

<ralational_oparator>  : 
Rel_Gte  0 / 

on 

<relational_oparator>  : 
Ral__Eq(), 

on 

<relational_oparatar>  : 
Ral_He(), 

on  " : " 

<relational_opetator>  ; 
Rel  Co{) ; 


transform  exp 

on  "constant" 

<axp>  : 

ExpConst (<con8tant>) , 

on  "id" 

<exp>  ; 
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Cspid {<id>) , 


on  "complex’’ 

<exp>  ; 

ExpComplex  (<type__naroe>,  <id>,  <exp>,  <optional_^exp__li#t>) ; 


transform  optional__exp 

on  "constant" 

<optional__exp>  ; 

OptCxpConst (<ccnstant>) , 

on  "id" 

<optional_exp>  : 

OptExpXd (<id>) , 

on  "complex" 

<optional__exp>  : 

OptExpComplex  (<typo_naine>,  <id>,  <exp>,  <optional__exp_li8t>) ; 


transform  constant 

on  "integer" 

<constant>  : 
ConstZnt (<integer>) / 

on  "real" 

<constant>  : 
ConstReal (<real>) , 

on  "true" 

<constant>  : 
ConstTrue () , 

on  "false" 

<constant>  : 
ConstFalse () ; 


transform  opt_lin)c 

on  "entet_lin)c" 

<opt_llnk>  : 

Optliink  (<id>,  <id>,  <optional_time>/  <id>) ; 


transform  type__op_impl 

on  "enter_operat:or_implementation" 
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<type_op_impl>  ; 

TypeOpImpl  {<id>,<op«t«tor_l»f»l>) ; 


tcanaform  boolean^relation 

on  "and__relation" 

<booXaan_ralati.on>  : 
AndRel (<relation>) , 

on  "or__relatlon" 

<boolean_relation>  : 
OrRal (<ralation>) ; 
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APPENDIX  M  KODIYAK  TRANSLATOR  SPECIFICATION 


File:  translatoc.k 

Author:  Charlie  altixer 

Date:  dec  88 

Last  Modified:  dec  89  by  laura  j.  white 


! definitions  of  lexical  classes 


Idefine  Digit 
%define  Znt 
%define  Letter 
Idefine  Alpha 
Idefine  Blank 
Idefine  Char 
Idefine  Quote 


(0-91 

( Digit 1  + 

(a-xA-L_] 

{(Letter) | (Digit)) 
(  \n) 

('{)) 

(") 


I  definitions  of  white  space 
:  (Blank l-f 


I  definitions  of  compound  symbols  and  keywords 


GTE 

LTE 

NEQV 

ARROW 

TYPE 

OPERATOR 

SPECIFICATION 

END 

GENERIC 

INPUT 

OUTPUT 

STATES 

INITIALLY 

EXCEPTIONS 

NORMAL 

MAX_EXEC_TIME 
MAX_RESPjriME 
MIN  CALL  PERIOD 


***”>** 

type  I TYPE 
operator | OPERATOR 
specification | SPECIFICATION 
end  I  END 

generic | GENERIC 
input  I INPUT 
output) OUTPUT 
states  I  STATES 
initially | INITIALLY 
exceptions | EXCEPTIONS 
normal : NORMAL 

maximum (  ) execution)  ) time) MAXIMUM)  ) EXECUTION)  )TIME 
maximum)  ) response)  ) time (MAXIMUM)  ) RESPONSE)  )TIME 
minimum)  ) calling)  ) period) MINIMUM)  (CALLING)  ) PERIOD 
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MICROSEC 

MS 

SEC 

MZK 

HOURS 

BTf 

REWORDS 

DESCRIPTION 

AXIOMS 

IMPLEMENTATION 

ADA 

GRAPH 

DATA^STREAM 

TIMER 

CONTROL 

TRIGGERED 

ALL 

SOME 

PERIOD 

FINISH 

EXCEPTION 

READ 

RESET 

START 

STOP 

IF 

NOT 

AMD 

OR 

TRUE 

FALSE 

ID 

STRING_LITERAL 

ZNTEGER_LITERAL 

REAL_LZ»RAL 

text” 


microaec | MICROSEC 

ma|MS 

aecISEC 

min I MIN 

houEsIHOURS 

by(  ]E«quiEMMnta|BT(  ]  REQUIlUEMBMTS 
kayworda  I  REWORDS 
daacciption | DESCRIPTION 
axioma]  AXIOMS 

implamantationj IMPLEMENTATION 

adalAdatADA 

graph I  GRAPH 

dat:a{  ]  atraamlDATAC  ] STREAM 
tlmarlTIHER 

control!  Iconatrainta I CONTROL!  ] CONSTRAINTS 

triggered | TRIGGERED 

by!  ]all|BT!  lALL 

by!  laomalBY!  ]SOMX 

period I  PERIOD 

Einiah!  ] within] FINISH!  JNITHIN 
exception | EXCEPTION 
read!  ] tiiaerlRXAO!  ] TIMER 
reaet!  ] timer {RESET!  {TIMER 
start!  ]tijeer|STARX!  {TIMER 
stop!  {timer  I  STOP!  {TIMER 
IfjlF 

""■{■not^pHOT" 

"t"l"and"|"AND" 

B  I  «  I  BogB  I  mQJ^m 

true  I TRUE 
false  I  FALSE 
(Letter) (Alpha)* 

(Quote) (Char) * (Quote) 

(Int) 

(lnt)*."(lnt) 

"("(Char)*")" 


I  operator  preceder.  3a 

!  %le£t  means  group  and  evaluate  from  the  left 


%le£t  OR; 

%le£t  AMD; 

%le£t  not; 

%left  •>* ,  GTE,  LTE,  NEQV; 

%left 


%% 
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!  attcJLbubo  declarations  for  nonterminal  aymbola 

start  (  trn:  string;  |; 

psdl  I  trn:  string; 

uncond_output_map ; strlng->atrlng; 
out_cnv : strlng->strlng; 
ln_env:string->3trlng;  |; 

ycmponent  (  trn:  string; 

uncond_output_map_ln:strlng->atrlng; 
uncond_output_mapjout : 3trlng->atrlng; 
ln_env:3trlng->atrlng; 
out_env:atrlng->3trlng;  |; 

data_type  {  trn:  string; 

ln__env :  3trlng->atrlng;  J ; 

operator  (  trn:  string; 

uncond_output_map_ln:3trlng->stclng; 
uncond_output_mapjout:strlng->strlng; 
ln__env:3tring“>atrlng; 
out__env :  3trlng->3trlng;  )  ; 

type_3pec  (  trn:  string; 

ln_env:3tring“>3trlng;  }; 

type_decl__l_ll3t  {  trn:  string; 

ln__env :  atrlng->3trlng;  I ; 

type_decl  {  trn:  string; 

in_env,out_env  ;3trlng->3trlng; 
opld: string; 
action__code :  string; 
ucond__output:  string;  ); 

op_apcc_0_ll3t  (  trn:  string; 

ln__env:3trlng->sttlng;  ); 

opetator_3pec  {  opld: string; 

ds^decl : string; 
state_^decl :  string; 
ucond_output : string; 
excp_decl : string; 

ln__env,  out_env  :3trlng->3trlng;  ) 

Interface  {  ln__env,  out_env  :string->strlng; 

ln_pann,  out_parin  ;  string; 
d3__decl:  string; 
state_decl : string; 
excp__docl ;  string; 
ucond__output :  string; 
opld: string;  ); 

attribute  {  ds_deol:  string; 

in_onv, out_env  :3tring~>3tring; 
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injp*tni,  outjparm;  string; 
opid: string; 
statsjdscl: string; 
ucondjoutput : string; 
excp_dttcl: string;  ); 

tim«  (  trn:  string;  ); 
unit  (  value:  int;  ); 
id__list  (  trn:  string; 

sction__code :  string; 
tname: string; 
opid: string; 
ucond__output :  string; 
count  :  int; 
exp_env:int->string; 
in_env : 3tring->string; 
out_env:atring->string;  ); 

reqmts_trace  (  trn:  string;  ); 
ifunctionality  (  trn:  string;  |; 
keywords  (  trn:  string;  ); 
in£onnel_desc  (  trn:  string;  ); 
fonul^deac  (  trn:  string;  ); 
type__iinpl  (  trn:  string;  ); 
op_ijnpl__0__li8t  (  trn;  string;  ); 
operstor__impl  (  trn:  string; 

out_env :  string*’>string; 
injenv:string~>string; 
uncond_output jnsp : string->string; 
loc__ds_decl:  string; 
tiBMr_^decI:  string; 
opid: string;  ); 
padl_impl  (  trn:  string; 

parent  :  string; 

uncond_output_map : string->string; 
in_env : string->string; 
out_env : string->string; 
loc__ds_decl :  string; 
timerjdecl : string;  ) ; 

data_£lowjdiagraffl  (  trn:  string; 

in_env,  decljnap  :  string“>  string;  ); 

link_0_list  (  trn:  string; 

in_env,in__deols,out_decls  :  string->string;  ); 

link  (  trn:  string; 

in_onv,in_decla/Out_decls  ;  string->string;  ); 

opt_tiine  {  trn;  string;  J; 
type_naro«  (  trn:  string;  ); 
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fcim«c3  (  trn:  atsing;  ); 
contJ:ol__conatcainta  (  trn;  atcing; 

parent  :  atcing; 

unconcijoutput__map:atring->3tring; 
in_env : 3tring->3tring; 
out_env;atring->3tcing; 
decljnap  ;  atring->3tring; 

); 

conatraintjoptiona  (  trn  :  atcing; 

in_cnv:  atring->3tcing; 
out__env;3tring->3tring; 
opid: atcing; 

1; 

more__conatraint3  (trn  ;  atcing; 

parent: atcing; 

uncond^output_map:3tring->8tcing; 
in^env : 3tring->atcing; 
out_cnv:atcing->atring; 
decl  map  :  3tring->3tcing; 

1; 

opt_tcig  (  out_^env:3tcinq->3tcing; 

””  in__env;  3tring->3tring; 

atreama_check: atcing; 
end_i£_3tre8m3 : atcing; 
peed: atcing; 
end  i£j?ced: atcing; 

); 

trigger  (if:  atcing; 

end_if: atcing; 

in__env,  out__env:atring->atring;  ); 
opt_pcr  (  trn:  atcing;  ); 
opt_fin_w  (  trn:  atring;  ); 
atreama  (trn:  atring; 

in__env,  out_env  :3tring->3tring;  ); 
timer__op  (  trn:  atring;  ); 
opt_if_predicate  (  if:  atring; 

^  end_if: atring; 

parent: atcing; 

in_env  :  3tring->  atring;  ) ; 
predicate  (  trn:  atring; 

in_env:  atring->3tring; 
type :  atring;  J ; 
expre33ion__li3t  (  trn:  atring; 

count :int; 

exp_env:iht->3tring;  ); 
expeeaaion  (  trn:  atring;  ); 
relation  (trn.  atring; 

in_env:  3tring->3tring; 
type:  atring;  ); 

8imple_expre3aion  (  trn:  atcing; 
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parent:  string; 
in__env;  atring->atring; 
type: string;  ); 

rol_op  (trn:  string; 

le£t_op: string; 
right_op:  string; 
opn__type:  string; 
parent:  string;  ); 
sign  (trn:  string;  ); 

lattrbute  declarations  toe  terminal  symbols 

ZD(  %text:  string;  ); 

TEXT(  %text:  string;  ); 

STRlMG_LlTERAb|  %text:  string;  ); 

INTEGEi__LITERAL{  %text:  string;  ); 

REAL_IiZTERAL  (%text:  string;  |; 

%% 

tpsdl  grammar 

start 

:  psdl 

{  %output{I"Kith  P5DIj__system; \nus«  PSDIi_SYSTEM; Xnpackage  th  is\n", 
psdl. trn«^ "end  TIj;\n"]); 
psdl. in  env  psdl. out  env; 

I 

a 

i 

psdl 

:  component  psdl 

(  psdl[l] .trn  [component. trn/ "\R",psdl(2] .trn] ; 

psdl[l] .out_env  ■>  component . out_anv  +|  p8dl[2] .out_enT; 
psdl[l]  .uncond_output_map  >■  component . uncond^output_Mp__out 
+1  psdl(2] .uncond_output_jaap; 
component. in_cnv  «  psdl(l] .in_4nv; 

component . uncond_output_>nap_in  psdl[2]  .uncond_outputjaap; 

psdl[2] .in_env  psdlll] .in_env  ; 

) 

I 

{  psdl. trn  •• 

padl.out_env  ( (?:string;"") ) ; 

psdl . uncond_output^map  { (?:8tring:"") )  ; 

) 


component 

;  data_type 

(  component. trn 

component . out_env  { (?:string:"")  }; 

component . unoond_output_niap_out  >■  {(?: string: "■)} ; 
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data_typo.in_onv  ••  component, in_env; 


I  operator 

(  component. trn  «  operator. trn; 

component. out^env  operator. out_env; 

component. uncond_output__map__out  -  operator. unoond_output_»ap_put 
operator. in_env  "  component •in__env; 

operator ,uncond_output_map__in  ••  component, uncond_output_map_in; 

) 


dnta_type 

;  TYPE  ID  type___3pcc  typc_impl 
(  data__type.trn  - 

type  3pec.in_env  ••  data_type.in_env; 

1  “  “ 


operator 

;  OPERATOR  ID  operator__apec  operator__impl 
(  operator. trn  •• 

(operator. in_env (ID. %texb" "CONSTRUCT")  —  "compoaite^operator" 
->  ("\npacJcage  ", 

ID.Itext, "_SPEC  i3\n"/oporator__3pec.d3_decl, "\n", 
operator_impl.loc__,ds__decl/  "\n", 
operator__3pec.3tate__decl/  "\n", 
operator__impl.timer__decl,  "\n", 
operator^spec.excp__decl, "\nend  ", 

ID .  %text7"_SPEC;  \n" ,  operator_iinpl  .trn) 

I 

); 

operator . uncond_output_map_out  " 

( (ID.%text:operator_3pec.ucond_output) ); 

operator_3pec.opid  ID.%text; 
operator  3peo.in_env  operator. in_env/ 
operator_impl.opid  “  ID.%text; 

operator_iropl.in_env  -  ( ("PARENT": ID. %text) )  +|  operator. in_env. 
operator  impl.uncond  output_map  *■  operator. uncond_output_map__in 
operator. out_env  operator__spec.out_env  +I  operator_^iiopl . out_ei 

) 


type_3pec 

:  SPECIFICATION  type_decl_l_li3t  op_3pec_0_li3t  functionality  END 
(  type_3pec.trn  ••  ""; 

type_decl_l_list.in_env  «■  type_3pec.in_env; 
op  spec_0_list.in__env  ■■  type_sp6c.in_env; 


) 


typojdecl__l_li3t 
;  type_decl 

(  typ«__decl_l_li3t.trn  "  typ«_dacl.ttn; 
typ«_docl.action_cod«  •«  "typ«"; 
typejdecl.in  env  -  type_decl  1  list. In  anr; 

) 


I 

(type__decl_l_li3t.ttn  •» 


typa_decl 

;  id_^li3t  ' ; '  type_naina 

{  type_decl.trn  «  id_liat.tEn; 

type__decl.out_anv  id_li8t.out_anv; 
typa_decl . ucond__output  -  id_liit.ucond_output; 
id_liat.in__anv  •«  typa_dacl,ln_anv; 
id_li3t.action_coda  -  typa_dacl.action_coda; 
ld_liat.tnama  ••  typa^nama.trn; 
id_li3b.opid  »  typa_dacX.opid; 
id_liat. count  ■■  1; 
id_li8t.exp  anv  ••  { (?;lnt;"")  J; 

) 

I  id__list  ' ; '  typa_na»a  ' ,  *  typa__dacl 

(  typa_dacltl]  .trn  -  id__li3t.tEn  “  typ<i__daclt2)  .tsn; 
typ8__decltll  .out__enY  "  id__li8t.out_anv  +|  typa_daol(21  .outjanr; 
type_decl.ucond_output  id__li8t.ucond__^output 

*  typa_dacl[2]  .ucond_^output; 

id_li3t . in__anv  >■  typa__dacl(l]  .in_anv; 

id_li8t.aotion_coda  «  typa^dacl(l] .8otion_coda; 

ld_li3t.tname  “  type_n8iB«.trn; 

id_li8t.opid  -  typa_dacl(ll .opid; 

id_^li3b .  count  "1; 

id_ll8t.axp_anv  -  ( (?:int:"") ); 

type_decl t2] .in_env  ■<  typa_dacl [1] .ln_anv; 

type_decl(2] .opid  ••  type_deoltlJ .opid; 

type_daclt2] .8ction_coda  ■  typa__daclll] .«ction_coda; 

) 


op__8pec_0__li3t 

;  op_spec_0_li3t  OPERATOR  ID  opeEatoE_apac 
(  op__8pec_0_li8t  (1]  .trn  ■ 

operator^  apec.in_env  ■  op_3peo_0_liat.in__env; 
op_spec  0_liat[2] .in_env  op  8pec_0_li8t [1] .in  anr; 
1  ” 


(  op_3pec_0_li8t.trn  ) 
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operatoc_3pec 

:  SPECXFZCATZOtl  interface  functionality  END 

(  operator_3pec.ds_decl  interface. da^decl; 
operatoc__3pec.3tate_decl  «  inter face. atate^decl; 
operator__3pec.excp_decX  ••  interface.excpjdecl; 
operator__3pec.ucond_joutput  •*  interface.ucond^output; 
operator__3peo.out__env  - 

(interface. out__env(operatoc_3pec.opid''*'ZHPAMl')  —  1 1 

interface. out_env (operator_8pea.opid‘"0UTPAMt") 

“>  t  ( (operator_3pec.opid""PR0CCALli") ; 

(interface.out_env(operator__3pec.opid'*"XNPARH'*) , 
interface.out_env(opecator_apec.opid*"OUTPARM") J) ) 

#  ( ( (opcrator_3pec.opid""PR0CCAliL")  : 

(interface. out_,env(opetator__3pec.opid“"IHPARM") , 
interface. out_env{operator_3pec.opid“"OUTPARM") )) ) 

)  +1  interface.out__env; 


•I  M 
9  t 


intorface.in_env  «  operator__3pec.in_env; 
inter f ace. opid  «•  operator^apec.opid; 


interface 

:  interface  attribute  reqmts_trace 
(  interface  (1}  .da_^decl  « 

(interface [2]  .d3__,decl/  "\n", attribute. ds_decX) ; 
interface  (1  ]  .3tate_decl  •• 

(interface (2] . 3tate_,decl/ "\n"^  attribute . atate^decl] ; 
interface  (1]  .excp__decl.  « 

(interface(2] .excpjdeci/ "\n", attribute. excp__decl] ; 
interface (IJ .injparm  ••  interface ( 2) .injparm  “  attribute. injparm; 
interface (1]  .out_j}arm  ••  interface (2]  .out_j>ann  *  attribute. outjparm; 


interface (1) .out_env  « 

( ( (interfBce(l}  .opid""INPARM")  :interface (1]  .in_pam) 

( (interface (1] . opid” "OUTP ARM") :interface(l] .outjpann)  ) 
■M  interface [2] .out_env  +|  attribute. out  env; 


interface (1 ] .ucond_output  interface (2} .ucond_output 

"  a'.itribute.ucond_output; 

interface(2] .opid  ••  interface (1] .opid; 
interface (2]  .in_env  »■  interface (1]  .in__env; 
attribute. in_env  «•  interface (1] .in^env; 
attribute. opid  interface (1] .opid; 

) 


(interface.d8_decl 

interface . 3tate_decl 
interface. excp_decl  ■ 


ItN  • 
t 
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interface. »• 
interface. ouejiarm  •* 
interface, out_env  »  ( (Tcatring;"") ); 
interface.ucond  output  ** 

I 


attribute 

:  GENERIC  type_deci 

I  type__decl.action_code  - 
typejdecl.opid  «•  attribute. opid; 
type_decl.in__env  ••  attribute. in_^env; 
attribute. out_env  »  type__decl.out_enr,* 
attribute.ds_^decl  - 
attribute. atate^decl  "• 
attribute,excp__decl  •• 
attribute. injparm  •• 
attribute. out_patm  •• 
attribute.ucond  output  •• 

) 

I  INPUT  type^deol 

I  bypejdecl.action^code  «  "input",* 
typejdecl.opid  ••  attribute. opid; 
typejdecl.in_env  «  attribute. in^env; 
attribute. out^env  «  type^declvoubjenv; 
abtributo.da_decl  •*  type^decl.Cm; 
attribute. state jdecl 
attribute. excpjdecl  «  ""; 

attribute. injparm  *•  typejdecI.oubjenv(attribute.opid'**XltPAM<") ; 
attribute. out jparm  •" 
attribute.ucond  output  ••  ""; 


I  OUTPUT  type^dccl 

{  type_decl. action  jCode  "output"; 

typejdecl.opid  attribute. opid; 
type jdecl . in jOnv  ••  attribute. in  jenv; 
attribute. out  jenv  -  typejdecl.outjenv; 
attribute.dSjdecl  ••  typejdecl.trn; 
attribute. state jdecl  « 
attribute.excPjdecl  ""; 
attribute. in_parm  ••  ""; 

attribute. outjParm  ••  typejdecl.outjenv (attribute. opid*"OUTPA»M") ; 
attribute. ucondjOUtput  ••  type jdecl. ucondjOutput; 


I  STATES  idjlist  ID  INITIALLY  expression  jllst 
{  id  list. action  code  "states"; 
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id_li3t.opid  «  attribute. opid; 
id_li3t.tn»>ne  "  XD.Itext; 
id"li3t. count  «  1; 

ld~li3t.exp_env  »•  exprea3ion_li3t.«xp_env; 

id~li3t.injBnv  *•  attribute, in__cnv; 

expteaalon_li3t. count  ••  1; 

attribute. out^env  ••  id__liat.oub__env; 

attribute,da_deol  "  "*•; 

attribute, 3tate_jdeci  ■*  id__li3t.trn; 

attribute. excp^decl  •*  "*•; 

attribute. injparm  •• 

attribute. out_parm  - 

attribute. ucond  output  « 


) 


I  EXCEPTIONS  id_li3t 

(  ld_li3t.action__code  ••  "excp"; 
id__li3t.tnaine  •»  "exception"; 
id_li3t.opid  ••  attribute. opid; 
id_liat. count  ••  1; 
id_llat.exp__env  «  ( (7:int: "") ) ; 
id”li3t.in_cnv  -  attribute. in_env; 
attribute. out_env  ••  idolise. out__env; 
attribute.d3___decl  - 
attribute. atatejdncl  « 
attribute. excpjdccl  ••  {id^list.trn, " 
attribute, in_pann  " 
attribute. out jpatm  «  ""; 
attribute. ucond^outpub  » 


PSDL  EXCEPTION; 


\n"l; 


I  MWC__EXEC_TIME  time 

(  attribute. ds_decl  ••  ""; 
attribute. 3t8te__decl  ••  ""; 
attribute. excpjdecl  -  ""; 
attribute. out__env  { (Tratring: "") ) ; 

attribute. injparm 
attribute. out_parm  •• 
attribute. ucond__output  -  ""; 


1  MIHjCAIiWERIOD  tine 
{  attribute. d3__decl  » 

attribute. 3tate__decl  ••  ""; 
attribute. excpjdecl  - 
autribute.out_eR.v  ■■  { (?;string: ; 
attribute. in_parra  -  ""; 
attribute. out_parm  - 
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attribute .  ucond___output 


M 


I  MAX_RESPjriME  time 
(  attribute. dajdecl  •• 
attribute .  atatejdecl 
attribute.excp__decl  •> 
attribute.out__env  -  ( (Tratrlng;"") ) ; 
attribute. injparm  " 
attribute. out_parm  •• 
attribute. ucond^output 


id_list 

”  ;  ID  id_iiat 

{  id_liat  (1)  .trn  •• 

(id_^li3t(l]  .action__code  "input"  || 

id__iiat[l]  .action_cod«  "output" 

->  (id__li3ttll  .in__env{id_liattll  .opid*"PAWUrr")  — 

->  ("package  DS", ID.%text/ "  ia  new  ", 

(id_liat{l) .in_env(ID.%text*"BUrr^TYP*")  —  "fifo" 

->  ’'riro^BurrER" 

#  "SkMPLED_B«rrBR") 

,"  {",id__liat(H  .tname,")  ;\n"J 
f  ("package  DS"/ID.%text, "  renaaea  ", 

id^listdJ  .in_«nv{id_li8t(lj . opid" "PARENT") ,  ■  8PEC.D5", 
lD7%text,";\n"])  “  id_liat(2) .trn 

#  id_list(ll .action_code  —  "atataa" 

->  ("package  OS", ID.%fcext, "  ia  new  STATE_VARZABLE (", 

id_li3t(lj .tname, ",  ",id  liat(l].exp  env(id  liat (X] .count) , 
");\n")  -  id_li8t(2).trn“ 

#  id__li3t  (1)  .action__code  >—  "excp" 

->  ("EX",ID.%text,",",id_li8tI2) .trn) 

#  id_list(lj  .action__code  —  "stream" 

->  ("package  DS",ID.%text, "  ia  new  ", 

(id_li3t(l)  .in_^env(ID.%texf'"BUrr_'nfpE")  —  "fifo" 
"riro_BurrER" 

«  "SAMPLED_BUrrER"),  "(", id__liat (1) .tname, ") ;\n") 

“  id__liat(2]  .trn 

#  irt_liat(l]  .action__code  "tiater" 

->  ["TL",ID.%text,",",id_li8t(21 .trn] 


#  id_li3t(l]  .action__code  <—  "by_all" 
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-> 


(id  list (11 .opid, "_SPEC.DS", IP. 
id''liat(2).ttn) 


".NEM  DATA","  AHO  \n" 


f  id  liat(l] .action  code  "by_3ome" 

->  (id_liat(l)  .opid,"_SPEC.DS",ID.%text,''.HEM__DATA",''  OR  \n*, 
id”liat(21.ttnl 


I  id  liat(l}  .action  code  ’’cojoutput" 

->  (id_liat(l)  .In_env(id_li3t(l)  .opid*"PAREHT") ,  "_SPEC.D3’’, 
IDT%text, WRITE (", ID. %text,") ;\n",id_liat(21 .trnl 


I 


id_li3t(2)  .in__env  «  id^liat  (1)  .in_env; 
id^liat (2] .action  code  -  id_li3t(ll .action_code; 
id”li3t(2)  .opid  -■■id_li3t(lT.opid; 
id^liat (2] .tname  «  id_liat (1] .tnarae; 
id_li3t(21  .cxp_cnv  ••  id_^li3t(l)  .exp__env; 

id^liat (21 .count  "  id_liat ( 11 .exp^env (id__liat (11 .count  +  1)  <>  "" 
->  id__li3t  (11  .count  +  1 
i  id  liat (11 .count; 


id_li3t(ll  .out_env  ■« 

(id__li3t(ll  ,action__code  "by__all" 

((lD.%text'‘"BOrrjrTPE'’)  ;"fifo"l  1  +|  id_li3t(21  .out_env 


i 


id  li3t(l]  .action_code  —  "by__8ome" 
'->”( ({ID.%text*"BUrrjrTPB") ;"aampled") 


1  +1  id_li3t(21 »out_env 


f  id_li3t  (11  .action__code  "input" 

( (ID.%text“"TYPE") :id_li8t(l] .tname) 

( (ID. %text* "CONSTRUCT^)  : "data_3treain") 

((id  li3t(ll.opid“"INPARM") ;(ID.%text,",", 
id”li3t(21 .out__env(id_li8t(21 .opid‘"INPARM") 1 ) 
1  +1  id__li8t(21  .out__env 


i  id_li3t  (II  .action__code  "output" 

->”( ((ID.%text‘"TYPB") ;id_li3t(ll .tname) 

( (ID. %text* "CONSTRUCT")  ;  "data_stj:eam") 

( (id_li3t ( 11 . opid* "OUTPARM" ) :TlD . %text , " , " , 
id_li3t(2) .out_env(id_li8t(2) .opid* "OUTPARM") ) ) 
1  +1  id_li3t(21 .out_env 


#  id_li3t(ll  .action_code  "otream" 

->""(  ( (ID.%text*"TYPE")  ;id_li3t(l]  .tname) 

(( ID. %text * "CONSTRUCT" ) :"data_atreain") )  +|  id_li3t (2] .out_env 

#  id_list(ll .action_code  —  "atatea" 

->  ( ( (ID.%text*"TYPB") :id_li8t(l] .tname) 

( (ID.%text""CONSTRUCT^) :"data_atream") )  t|  id_liat (2] .out_env 


\ 


I  id_li3t  (1)  .action__code  "excp" 

->  I  ( (ID. %toxt“"CONSTRUCT") ; "exception") )  +|  ld__liac(2] .outjenv 

t  id_li3ttl)  ,action__code  --  "timer" 

->  ( ( (ID.%text*"CONSTRUCT") :"timer") )  +|  id  list [2] .out_env 

f  id_li3ttl)  .action__code  "co_output" 

->*'(  (tid_li3tll) .opid,"_", ID. %text, "OUTPUT") : "conditional") ) 

+ I  id_li3t ( 2 ] . out_env 

#  ( (?;3tting:"") ) 

); 


id_li3t.ucond__output  •• 

{ {Id_liat(l) .in_env(id_li3t(l] . opid“ ID. %text“ "OUTPUT") 

<>  "conditional"  )  ££ 

(id^liattl) .action_code  —  "output") 

->  (id_li3t(l) .ln_env(id_liat(l) .opid“"PXRtMT") , ■_SPEC.DS"# 
IDT%text, ".WRITE (", ID. %text, ") ;\n") 

I  HU 

)  *  id  li3t(2) .ucond_output; 


) 


I  ID 

(  id_list.trn  ■■ 

(id_li3t.action__code  "input"  1 1 
id  li3t.action__code  •-«  "output" 

->  {id__li3t.in_env(id_list.opid-"PAREHT")  —  "" 

->  ("pac)cage  DS"/ID,%text/ "  is  new  ", 

(id_li3t.in_env(ID.%text‘"»urr_TTPB")  —  "fifo" 

->  "riro_BurrBR" 

I  "SXMPl.ED_BUrrER") 

, "  (",id_list.tnax»e,  ")  ;\n") 

#  ("package  DS",ID.%text, "  xenaaies  ", 

id_li3t.in_env(id_li3t.opid’“ "PARENT") ,  "_SPEC.DS", 
ID.%text, ";\n")) 

f  id_list.action_code  ~  "states" 

->  ("package  DS",ID.%text,"  is  new  STATB_VARIAELB(", 
id_li8t . tname, ",  ", id_list . exp_env {id_list . count) , 

")7\n"l 

#  id_li3t.action__code  —  "excp" 

->  ("EX",ID.%text) 

I  id_li3t.action_code  "stream" 

->  ("package  DS", ID.%text, "  is  new  ", 

(id_list.in_env{ID.%text‘"BUrrjCYPB")  —  "fifo" 
->”"riro_BurrER" 

#  "SAMPLED  BUrrER"),  " (",id_li8t. tname, ") ;\n"] 
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"timer" 


i  id__l.i3t.BCtion_code 
->  ("TL",ID.Itext) 

i  id__li3t.action_code  "by__«ll" 

->  (id_li3t.opid, "_SPlCC.Di", ID.Itext, ".MEM_DATA"] 

i  id__li3t.action_code  "by__3ome" 

->  (id__li3t .Opid, "_SPEC.DS", ID . Itext, " .NEM_DAT\"1 

I  id_li3t.action_code  "co_joutput" 

->  (id_liat . in^env (id_list .opid" "PAREMT") ,  "_SPEC . D3" ,  ID . %text 
". WRITE (", ID. %text, ") ;\n"] 

id_^li3t.out_^env 

(id__liat.action_code  "by__alJ." 

((iD.%text'""BurrjrTPE"r:"fl£o") ) 

I  id_li3t.action__code  ■«  "by__aom«" 

(  ( (ID. %text'*"BOFrjCIPE"r:  "sampled")  ) 

#  id_li3t(ll .action_code  "input" 

->“ (  ( (ir'.%text*"T7pE")  ;id_li3fc.tll  .tname) 

( {lD.%text*"CONSTRUCT") ! "data^stream") 

( |id_li3t.opid“"lWPA'»li")  :lD.%text) ) 

#  id_li3t(l] .action_code  "output" 

->“ ( ((lD.%text“"TYPE")  :id__li3t(ll  .tname) 

{ (ID. %text* "construct”")  ;"data_3tream") 

{ (id_li3t.opid*"OUTPARM")  ;ID.%text) ) 

i  id_liat(l) .action_code  •«  "stream" 

->  {  ((ID.Itexf"TTPE")  ;id_li3t(ll  .tname) 

{ (ID. %text* "CONSTRUCT") : "data_3tteam")  ) 

#  id_li3t(l) .action_code  "states" 

->  ( ( (ID.%text“"TXPE") ;id_list(l] .tname) 

((ID.%text“"CONSTRUCT") : "data_3tretm") ) 

i  id_li3t.action_code  —  "excp" 

->  { ( (ID.%text""CONSTRUCT") : "exception") ) 

I  id_list.action_code  "timer" 

->“(  ((ID.%text~"C0N5TRUCT") : "timer") ) 

#  id_li3t.action_code  —  "co__output" 

->  { ( [id_liat.opid/ ID. Itext, "OUTPUT"] : "conditional") ) 

i  ( (?:stringr"") ) 

); 
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id  liat.ucondjoutput  - 

( (id_li3t .  injnnv  (id_li»t  .opid‘"_"*ID .  ItMf  ■OOT»OT")  •O*con<lltioo«l") 
ti  (id__li3t.«ction_^cod®  "«  "output") 

->  (id~li8t.ln_«nvTid_li3t.opid*"PAWtKT") , "_SfEC.D5", lD.%t**t, 
WRITE (",  7d. %t«xt, ") ;\n"J  *" 

I  nn 

); 

) 


time 

;  INTEGER_IiITERAIi  unit 
(  time.trn  -  ) 

; 


unit 

;  MXCROSEC 

(  unit. value  «•  1; 

) 

I  MS 

{  unit. value  »  1000; 

) 

I  SEC 

(  unit. value  »  1000000; 

) 

I  MIN 

(  unit. value  60000000; 

) 

I  HOURS 

(  unit. value  3600000000; 

) 


recimta_trace 

:  BY  id_li8t 

{  req^t8_trace.trn  ••  ""; 

ld_list.in_env  «  { (Tratring:"") ) ; 
id_li3t.action_codc  ■■  ""; 
id_li3t.tname  ""; 
id_li3t.opid  “  ""; 
id_list . count  "  1; 
id_list.exp_env  ••  {  {7;int:"") ) ; 

1 


2SS 


I 

(  reqmt3_tcoce.ttn  «  ) 


functionality 

;  Hoyworda  informal^deac  formal^deao 
(  functionality. trn  -  J 


keywocda 

;  K«!^fHORnS  id^liat 
(  ioyworda.trn  " 

id_li3t . in__env  ••  ( (?;3tx:ing;"") ) ; 

id_li3t.action__cod«  - 

id_li3t.tname  •• 

id__li3t.opid 

id__li3t. count  •»  1; 

id  Hat. exp  env  «  (  (?;int: "")  J ; 

) 

I 

(  key words. trn  «  ) 


informal^^deac 

;  DESCRIPTION  TEXT 

{  informal  desc.trn  ••  "\n";  } 

I 

(informal__de3e.trn  ) 


formal_de3C 

:  IxiOMS  TEXT 

{  formal__de3C.trn  •"  "\n";  ) 


(  fonnal__de3C.trn  ) 

« 

i 


type__impl 

7  IMPLEMENTATION  ADA  ID  END 

(  type_impl.trn  «  ("procedure  ",lD.%text,"  i3;\n"J;  ) 

I  IMPLEMENTATION  type_name  op_lmpl_0_list  END 

(  type_irnpl . t;rn  "  ("\n  package  DATA__TYPES  is  \n"/type_name.trn,  "\n"/ 
op__^impl_0__list.trn,  "\n", 

"end;\n"];  ) 


op__iinpl_0_list 

:  op_impl__0_liot  OPERATOR  ID  operator__impl 
(  op__iinpl_0_list(lJ  .trn  " 

operator_impl.opid  ««  ID.%text;  ) 

I 
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{  op__impl_0^1i3t  (1 1 .  trn 


\ 


m  **  **  ' 


) 


opctator__impl 

;  IMPLEMENTATION  ADA  ID  END 
(  operator^impl.trn  •• 

op«r«tor__ijnpl.lQQ_da_decl  •• 
op«t«toc__impl,times_d«cl  •• 

opaxator  iinpl.out_«nv  ••  (  ( (ID,%taxt“"COHSTRUCT")  :"ato«do_oparatox") ); 
)  ”  “ 

I  IMPLEMENTATION  padl_impl 

(  oper»cor_ijnpl.txn  •»  padl_impl.trn; 

op«ratot_ijnpl.loc_ds_decl  ••  padl__ljapl.loc_da_d«cl; 
operator_irapl.tiin«r_d«cl  padl_ijBpl.tijMr_d«cl; 
padl^inpl. parent  -  op«rator_ijnpl.opld; 
p3dl_impl.in_env  -  op«rator_i»pl.in_«nv; 

p3dl_iinpl . uncond_output_map  -  operator_ijapl.uncond_output_Mp; 
operator_ijnpl .  out_«nv  - 

( ( (op«rator_impl.opid'* "CONSTRUCT")  ; "co«poait*_op«rator") )  +| 
padl  impl.out  env; 

) 


padl^impl 

7  data_flow_diagtain  atreama  tiavera  control^conatrainta  Infonaaljdaac  EHD 
{  padl^impl.trn  -  control_con3traint8.trn; 

p3dl__impl.out_env  atEaama.out__«nv  +|  control_constralnta.out,_«nv; 
psdl__iinpl.loc__d3__deel  «  atxeaaia.txn; 
p3dl_iinpl.himer_^d«cl  tinwra.trn; 
data_£loM__diagram.in_env  -  padl_i»pl . in_«nT; 

3breama.in_env  padl_iinpl.in_«nv; 
control_conabralnta. parent  ••  padl_i»pl. parent; 
control_con8traint3 . in_env  p8dl_jL»pl.in_env; 
control_conatraint3.decljnap  -  data_flow_diagram.decljaap; 
control  con3traint3.uncond_output_map  -  p8dl_iaipl.uncond_output_iaap; 

I  “ 


data__£loM_diagrani 

7  GRAPH  Xink_0_li3t 

(  data_£low_diagrain,trn  <■  ""; 

data__£low_diagram.decl_map  -  lin)e_0_li8t.out_decla; 

link_0_liat.in__decl8  -  { (?:8tring:"") ); 

link  0_li8t.in_env  ••  data_£low_diagram.in_env; 

) 


link_0_li3t 

;  link  link_0_li3t 

{  link_0_Ii3ttl] .trn  - 
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I 


iink^O^listlU .out_decXa  -  linkJ)JLi3t(2J .out_d«cX8 
Xink~0~Xi3t(2)  .inJdtecXa  «  Xink.outjifccls; 
XinkTin^docXa  «  xlnk_0__xist  [1}  .in^dccXa; 

Xink.in__env  »  Xink__0^Xi3t(lJ  .in__«nv; 

Xink  0_Ji3tt21  .injenv  «  Xi»k_0_li3tlXJ  .in_env; 


f 


I 


Xink__0__Xi3t.trn  *• 

Xink  0  Xl3t.out_d«cX3  ••  link^O^Xlst.injd«cXs; 
I  “ 


Xink 

;  ID  ID  Opt_tim€  ARROK  ID 

I  Xink.trn  •« 

Xink. out  decX3  » 

(Xink7in_decX3(IDt3]  .%text-ID(ll  .%hext""Rr.AD")  —  "dup" 

->  {(?: string ) 

f  I  ((lDt31  .%text''"READ")  ;  tXink.in_docX3  (ID (3} . %text“"READ") , 

Xink. in  onv ("PARENT") , "__SPEC.DS", ID (1) .%t«xt« ■ .READ (", IDll) .%t«xt, 
") ;\n"]T  ( {ID(31 .%text“lD(l) .%text“"READ") :"dup") ) 

)  +l 


(Xink.in__decX3(lID(2).%t3xt,-_",ID[l]  .Itext))  —  “dup" 
->  ( (?:3tting:"") ) 

i  ( (ID(2) .%text: {Xink.in_decX3(ID(2] .%text)^ 

ID(X1  .%text,"  :  ",Xink.in__env(lD(l)  .%text“"TTPB") , 
";\n"))  ((10(2) .Itext/"J"/1D[1] .%text) :"dup") ) 

)  +1 

(Xink.in_deoXs((IDt3J.ltext,"_",IDll).%text))  —  "dup" 
->  { (?;3tting:"") ) 

f  { (ID(3I .%t«xt: (Xink.in_d«cX3 {ID(3) .%t«xt) , 

ID(ll.%text,"  :  ",Xink.in_env{IDll) .%text""TTPE"), 
";\n"I)  ((ID(3J .%text, "_",ID(1) .%t«xt] ; "dup") ) 

)  +I  Xink.in_decX3; 


optjtimo 

;  's'  time 

{  opt_time.trn  ) 

I 

{  opt^time.trn  -  "\n";  ) 


streams 

;  DATA_STREAM  type^decX 

{  streams. trn  "  typejdecl.trn; 

streams.out_env  »•  type_decl.out__env; 
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typo_decl.opid  « 

typejdecl.«ctlon_code  ■*  "stream"; 
type_deol.,in__env  -  str earns. in^env; 


( streams. trn  ""; 

streams. out  env  ( (?:atring:""} ) ; 

) 


typo__name 

:  ID  '  type_^decl  'J' 

(  typo_name.trn  ■  (lD.%text, " type_^decl.trn, "] \n"] ; 
type_decl.opld  ••  ""; 
type_dccl.action_^code  -  "tnaiae";  ) 

I  ID 

(  type_name.trn  "  lD.%text;  ) 


timers 

;  TIMER  id_list 

(  timers. trn  tid__list.trn,  "  :  P3DL_TIMER; \n"  1 ; 

id__list,in__env  ••  ( (?;8tr4ng:"") ) ; 
id__liat.aotion_code  «  "timer"; 
id  list.tname  «  ""; 
id”li8t.opid  - 
id^list . count  »  1; 
id  list. exp  env  "  ( (?;int:"") ); 


I 

(timers. trn  ••  ""; 
) 
i 


control_constraints 
:  CONTROL 

{  control__constraints.trn  -  ""; 

control  constraints. out  env  ( (?:8tring:"") ) ; 

) 


I  CONTROL  OPERATOR  ID  opt_trio-  opt_per  opt_fin__w  con8traint_options 
more_constraints 
{control_constraints.ti?n  " 

(control__constraints .in_env (ID. %text“ "CONSTRUCT") 

—  "composite_operator" 

->  ("procedure  "/ control_conotraints.in_env ("PARENT") / 
ID.%text,"  is\n  begin\n  null;\n  end  ", 
control_constraints . in_env ( "PARENT" ) , , ID . %text , " ; \n" ] 

#  ("procedure  ", controljconstraints. in_env( "PARENT" ) , 
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''_",ID.%bext, "  i3\n",conttol_conatc«inta,d*cl_m«p(lD.%text) , 

" \nbegin\n" , opt_trig . atream3_check, 
control^conatrainta .decl_map (ID. %t«xt*"EBAD") , 
opt__trig.pted, 

(control__con3traint3.in_env(lD.%taxt“"PR0CCAH.'*)  -«■  "" 

->  (ID.Itext, ";\n") 
i  (ID.Ibext," (", 

control  conabralnta.in  env(ID,%t«xt*"PROCCAi:jL")  ,");\n"] 
>/  “ 

con3tralnt__opblona.trn/  "Xn", 

control^conatrainta . uncond_output  jnap (ID . %text) , 
opt__trig .  end__if_pred,  opt__trig .  end_i£__3treains, 

"end  ", control_con3ttaint3.in^env ("PARENT") , 

"_",ID.%text,"7\n"l 
)  “  more__con3ttaint3.trn; 

opt_trig.in_env  -  control_con3ttaint3.in__env; 
con3traint__option3.in_env  conttol_con3traint3.in_env; 
conatralnt_optiona.opid  ■»  lD,%bext; 
control__con3traint3.out_^env  •• 

( ( (lD.%text“"PARENX") scontrol^conatcainta. parent) ) 

+  I  opt_trig.out__env 
+  1  con3traint_option3.out__env 
+1  mote_con3traint8.9ut_env; 

more_con3tralnt3. parent  *  control^^conatrainta. parent; 
more__con3traint3.in__env  ■  control_^con3trainta.in_,env; 
more_con3tralnta .  uncond_output__mfcp  ■ 

control^^conatrainta .  uncond__outputjnap; 
more  conatrainta.decl  map  control  conatrainta.decl  map; 

1  “ 


(control_con3traint3.trn  ••  ""; 
control  con3traint3.out_env  -  ( (?:3tring:"") ); 

1 


more_con3traint3 

;  OPERATOR  ID  opt_trig  opt_per  opt^fin_w  con3tralnt_optiona 
more^^conatrainta 
(inore_con3traints  (1)  .trn  "> 

(more__con3traint3 .  in_env  (ID .  %text'' "CONSTRUCT")  — • 
"compo3ite_operator" 

“>  ("procedure  ",more_con3traint3(l) .in_env("PARENT") , 

ID.%text,"  iaXn  begin\n  null;\n  end  ", 
more^conatrainta (1)  .in__env(" PARENT") ,  ID.%text,  ";\n") 

#  ("procedure  ",more_con3traint3 (1] .in_env("PARENT") , 

ID.%text, "  i3\n",more_con3trainta (1) .decl_map(ID.%bext) , 
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"\nbegin\n" ,  opt__tclg.  3trewna__ch«c)c, 
more_con3tr«inta .dccl_map (ID. ltext“"IlBXD'*) , 
opt_trig.pted, 

(moEo__con3tr«int3(ll  .in_«nv{ID.%t«xt“"PROCCALIj")  "" 

->  (lD.%text, ";\n") 

I  (ID.%text,"{", 

moEe_con3tEaint3(l) .in_«nv(ID.%t«xt“"PROCCAUi") ;\n"l 

) » 

conat:xaint_options.trn,  "\n"/ 

moEe_con3tEalnts (1] .uncond_outputjaap (ZD.Itaxt) , 
opt_t cig . end_if_pEed, opt_trig . end_i£_stx«aiM/ 

"end  ",n>OEe__con3tEaint8(l]  .in__env("PAlUEMT")  / 
"_",ID.%text,";\n") 

)  *  moEe_con3tralnt3 [2] .ten; 

opt_trig.in__env  ••  iibOEe__constxalnt8.in_env; 
con3traint_option3.in_env  ••  more^^constralnts . in__env; 
con3traint__option3.opid  XD.Itexb; 
moEe_conatxainta [1] .out_«nv  « 

(  ( (ZD.%text'"PARENT")  :moxe__con8traints. parent)  )  -fl 
opt_trig.out__env  +| 
con3tEaint_optiona.out_env  +| 
inore_conatralnta[2]  .out__env; 

raoEe__conatEainta(2)  .in_env  ••  »oEe__constEalnt8  [1]  .in_env; 
inore__constraint3(2]  .uncond_output_map  " 
moce^conatrainta  (1]  .uncond__outputjMap; 
inoEe_conatraint8(2]  .decl_nap  B>oEtt_conateaint8[l]  .decljaap; 


1 


(moEe^conatealnta.trn  - 

rooEe_conatrainta.out_env  ( (?;atring;""> )  ; 

1 


conatraint__option8 

:  OUTPUT  id_llat  IF  predicate  reqmta^^trace  conatralnt_optlon8 
(  conatraint_optlon3 [1] .trn  •- 

("if  ",  predicate. trn, "\nthen\n  ",id_li8t.trn, "\nend  if;\n", 

conatraint_optiona [2] .ten]  ; 

conatraint_optlon8 [2] .opid  conatraint^optiona [1] .opid; 
conatraint_optiona(2] .in_env  •»  conateaintjoptlona [1] .in_«nv; 
con3tEaint_option8[l) .out_env  id_liat . out_env  +| 

con8tEaint_options[2] .out_en7; 
predicate . in_env  -  con3traint_options [1] .in_env; 
id_li3t . in_env  ■  con8tEaint_option8 [1] .in_env; 
id_liat.action_code  ■  "co_output"; 
id  llat.tname  ""; 
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lc!_li3t.opid  conatralnt^options.opid; 

id^liat . count  «  1; 

id  list. exp  cnv  »  { (?:int:"") ) ; 

) 

I  EXCEPTION  ID  opt^ifjpcedicate  reqmt9_tcace  conatcaint^options 
t  conatraint_^optiona(l)  .trn  *•  con3tcalnt_option8(2]  .ten; 
con3teaint__optiona(l)  .out_,env  »  conatraint_optiona{2]  .outjanv; 
conatralnt__optiona(2)  .opid  ••  conatealnt_options  (I)  .opld; 
conatcaint_option3(2]  .in_env  •«  conatraintjoptiona  (1)  .in__env; 
opt  Ifjpredlcate.in  env  conatcaint  optional!] .in  env; 

)  ” 

I  timer_op  ID  opt^ifjpredicate  eeqmt3_traco  conateaintjoptiona 
(  conatraint__option3(l)  .trn  •« 

(opt_i£__ptedicate.if,tiiner__op.trn, "  {*, 

conateaintjoptiona (1)  .in_^env  ("PARENT") ,  "_SPEC.Tl»",  ID.%text, 
") ;\n"/opt_i£_peedicate,end__if/ conateaintjoptiona {2] .ten] ; 
conateaintjOptionatl] .outjCnv  ••  conateaint_option3(2] .out_env; 
conateaint_option9(2] .opid  •"  con3teaint_optiona [1] .opid; 
con3teaint_option3t2] .iOjCnv  -  conateaintjOptionatl] .injCnv; 
optjifjPeedicate.injCnv  «  conatcaintjOptiona (!] .iOjenv; 


(  conateaintjOptiona.tcn  «■ 
conateaint  optiona.outjOnv  •*  | (?:8teing: "") ] ; 

) 


optjteig 

:  TRIGGERED  tciggee  opt ^if jpcedicate  eeqmt3_teaco 

(  optjteig.outjCnv  "  teiggee.out_env; 
optjteig.peed  «  opt_if  jpeedicate.if; 
optjteig.endjif jPeed  -  optjifjpeedicate.endjif; 
optjteig.3teoam3jCheck  ••  teiggee.if; 
optjteig.endjif  jOteeama  teiggee.end_if ; 

teiggec.injCnv  opt_teig.in_env; 
optjifjpeedicate.in  env  «  opt_teig.in  env; 

) 

I 

(opt_tBig.owt_env  «■  ({Trancing:"")); 
optjtrig.peed 
opt_teig.end_if_peed 
opt_tBig.3teeBm3_check  ■ 
opt  teig.end  if_3tceam3  •• 

) 


triggec 

:  ALL  id  liat 
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(  trigger. if  «  t"i«  "rid^liat.trn, "XnthenXn") ; 
trigger. end^if  «  "end  if;\n"; 
trigger. out__env  ••  id__li*t.out__env; 
id_^iiat.»ction__cede  « 
id_li3t.tn»»e  •• 

id_li3t.opid  «•  trigger.in_env("rAWCMT")  ; 
id_ii9t. count  ••  1; 
id  list.exp__env  •«  ( (7:int;"") ) ; 

) 

1  SOHE  id  list 

(  trigger, if  -  ("if  ",id_liat.trn,"\nth9n\n"l; 
trigger,end_if  ••  "end  if;\n"; 
trigger. out_env  -  id__li»t.out__env; 
id_liat.»ction__CQde  -  "by_ao«e«"; 
id^iiat.tnene  « 

id”liat.opid  «  trigger. in_jenv("rAREMT") ; 

id_liat. count  ••  1; 

id_liat.exp  env  -  { {7;int:"") ); 

) 


I 

I  trigger,  if  ••  ""; 

trigger.end^if  - 

trigger. out  env  «  ( {7:3tring:"") ) ; 

) 


opt_per 

: PERIOD  tine  reqmt8_trece 
(  optjper.trn  ••  "\n";  ) 

1 

{  opt_per.trn  ) 


opt_fin_w 

;  rXNXSH  tine  reqmta_tr*ce 
{  opt_fin__w.trn  ••  "\n";  ) 
I 

(  opt__fin__w,trn  »  ) 


tiner^op 

:’"rEAD 

(  ti«>«r_op.trn  -  "PSDIiJTXMER.READ";  ) 
I  RESET 

(  tiner_op.trn  -  "PSDLJTXMER.RESET";  ) 

I  START  ~ 
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(  timcc_op.trn  -  "PSDL^TIMER. START";  I 
1  STOP 

(  timcr^op.trn  "  "PSDL_TIMER.STOP";  ) 


opt_if_pcodicacc 

ir  predicate 

t  opt_i£_J>redicate.i£  "  ("if  ",  predicate t trn, "\nthen\n") ; 
opt__if^todicate.end__i£  •*  "end  if;\n"; 
predicate. in_env  "  opt__i£_j?redicste.in__env; 

) 

I 

(opt_if__predicato.if  - 
opt  ifjpredicate.end_i£  "  ""; 

) 


expre38ion__li3t 
;  expre33ion 

(expre33ion_li3t.trn  «  expte33ion.trn; 

expre33ion_li3t,exp_env  -  ( (expre33ion__li3t. count: expression. trn) 

(0 : i2s  (expression_liat . count) } 
(?:int:""));  ) 

I  expression  • , '  expre33ion_li3t 
(expression_li3t[l} .trn  " 

(expression. trn, ", ",expre3sion_list(21 .trn) ; 
expre33ion_li3t{lJ  .exp_,env  « 

( (expre33ion_li3t(l) .count: expression. trn) )  +| 
expression_list(2]  .exp__env; 

expre33ion_li3t(2) .count  "  axpres3ion_list (1) .count  +  1;  ) 


expression 

:  IMTEGER_HTERAL 

(expression. trn  -  INTEGER_LITERAL. %text;  ) 

I  REAL_LITERAL 

(expression. trn  REALr__IjlTERAli. %text;  ) 

I  STRING_I.ITERAL 

(expression. trn  ■  STRIMG^LITERAL.Itext;  ) 

I  TRUE 

(expression. trn  -  "  true  ";  ) 

I  FALSE 

(expression. trn  •>  "  false  ) 

I  ID 

(expression. trn  ••  ID.Itext;  ) 

I  type_name  ID  M'  expre33ion__list  ')' 

(expression. trn  -  (type  name.trn,lD.%text, " (",expte33ion__list.trn 

")  "T; 

expre33ion__li3t .  count  1;  ) 


264 


predicate 

:  relation 

( predicate. trn  ••  relation. trn; 
predicate. type  relation. type; 

relation. in  env  predicate. in^env; 

I 

I  relation  AND  predicate 

(predicate tl] .trn  (relation. trn, "  and  "/predicate[2] .trn] ; 
predicate [1] .type  - 

predicate [2] .in^env  «  predicate (1] .in_env; 
relation. in  env  -  predicate (IJ .in^cnv; 

] 

I  relation  OR  predicate 

(predicate [1] .trn  ( relation. trn, "  or  ",  predicate (2] .trn] ; 
predicat«(l]  .type  •• 

predicate (2] .in_env  -  predicate [1] .in_env; 
relation. in  env  «■  predicate ( 1]  .in__env7 

) 


relation 

:  simple^expresaion  rel^op  ainplejexpreaaion 
(relation. trn  rel__op.trn; 
aiinple_expresaion(l] .in_env  «  relation. in_env; 
aimple__expreaaion(2]  .in__env  relation. in_env; 
relation. type 

(aijnple_expreaaion(l] .type  —  "timer"  || 
8iirple_expreaaion(2]  .type  "timer" 

->  "timer" 

#  aimple_expre88ion(l] .type  "excp"  || 

aimple_^cxpreaaion(2]  .type  "excp" 

->  "excp" 

I 

); 

rel_op.le£t_op  “  aimple_expre8aion[l] .trn; 
rel__op.right_op  ■■  aimple_expre38ion(2]  .trn; 
rel_op. parent  ••  relation. in_ei:«»  ("PARENI")  > 
rel_op.opn__type  ■ 

(3imple_expreaaion[l] .type  —  "timer"  || 
3imple_expre83ion(2] .type  "timer" 

->  "timer__op" 

#  "arithmetic" 

); 
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I  9impIc__expreaaion 

( relation. trn  •*  aimple_expreaaion.trn; 
relation. typo  -  aimplo^expreaaion.type; 
aimplo  oxpreaaion.in  env  «  relation. in  env; 
)  ” 


aimplo_exprodaion 

”  :  IMXEGER_IiITERAL  unit 

(aimple^expreaaion.trn  i23  (a2i  (XNTEGER__LXTERAIi.%text) 

*  unit. value); 

aimple  expreaaion.type  -  "timer"; 

1 

I  aign  XNTEGER^LXTERAL 

(3imple__expre33ion.trn  *»  (aign.  trn,  XNTEGER^EXTERAIi.ltext] ; 
aimple  expreaaion.type  -  ""; 

) 

I  aign  REAL_LITERAL 

(aimple^^expreaaion.trn  (aign. trn,  REAL^LXTERAL. Itext] ; 

aimple  expreaaion.type  "  ""; 

) 

I  ID 

(3imple__expre33ion,trn  XD.%text; 

3imple__expre33ion.type  - 

{3imple__expre3aion.in__env(ID,%text”"C0NSTRUCT")  "timer" 

f  aimple  oxpreaaion.in  env(XD.%text'*"CONSTRUCT") 

); 

I 

I  STRING^MTERAI, 

(aimple_^expreaaion.trn  ••  STRXHG__IjXTERAL.Itext; 
aimple  expreaaion.type  >■  ""; 

) 

I  ' ('  predicate  ' ) ' 

(aimple^exproaaion.trn  ■  ("(", predicate. trn, ")") ; 
aimple_exprea3ion.type  -  predicate .type; 
predicate. in  env  ••  aimple_expre3aion.in  env; 

) 

I  NOT  XD 

{aimple_expro3aion.trn  -  ("not  ",ID.%text]; 
aimple_expre33ion.type  «•  ""; 

) 

1  NOT  ' predicate 

{3imple_exprea3ion.trn  “  ("not  {", predicate. trn, ") "J ; 
aimple^expreaaion.type  - 

predicate. in  env  >•  aimple  expreaaion.in  env; 

)  “  “  ” 

I  TRUE 

{3imple_expro3sion.trn  "  true  "; 

3imple_exptea3ion.type  ""; 

) 
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I  FALSE 

(aimple_exptc33ion.ttn  "  "  false 
simple  expression. type  - 

1 

I  NOT  TRUE 

{3imple_exptession.trn  «  t"  not  true  "]; 
3imple_expre3sion.type  ■■ 

) 

I  NOT  FALSE 

{3implo__expression.ttn  "  not  false 
simple  expression. type 

) 


rel  op 

•<* 


{rel_op.trn  - 

""  (rel_op.opn_type  —  "tiraer_op" 

->  ["PSDL__T1MER. 

f  (rel  op,left_op, "  <  ", rel__op.righb_op] 

); 


) 

I  »>' 

(rel__op.trn  " 

(rel__op.opn_type  — ■  "tiraer__op" 

->  T"PSDLJCIMER. 

f  [rel_op.left_op, "  >  ",rel__op.right_op) 

); 


) 


{rel_op.trn  - 

(rel_op.opn_type  — •  "timer_op" 

->  T"psdl_timer. 

f  [rel_op.left_op, "  -  ",rel_op.right_op] 
); 

) 

I  GTE 

(rel_op.trn 

(rel_op.opn_type  —  "timer^op" 

->  T"psdl_timer. 

#  [rel  op.left_op, "  >-  ",tel_op.ri(j|ht_op] 

); 

) 

I  lte 

{rel_op.trn  ■ 
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) 


(rel_op.opn^type  — ■ 

->  T"PSDL_TIHBR. 

I  (rel  op. left  op, 

); 


"timet_op" 

"  <-•  ",tel__op.right_op) 


1  NEQV 

(tel__op.trn  •» 

(rel_op.opn__type  "timec_op"  v  >  ,  .  -*4.* 

->  ("PSDL_T1MER.  “ 

#  (rel  op. left  op,"  /-  ",tel  op. right  op) 

) 

I 

(reljop.trn  ■ 

(rel__op.right_op  "NORMAL" 

->  (rel_op. parent, "__SPEC.DS", rel_op.left_op, " .IS^NORMAL  "] 
f  (rel_op. parent,  "__SPEC.DS",  rel__op.left__op, 

".IS  EXCEPTION (\ rel  op. right  op,")  ”") 

) ;  " 


aign 


(sign.trn  ■  "+ 
/  _/ 


) 


(aign.trn  ■  ) 

(sign.trn  ■  ) 
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APPENDIX  N  PSDL  DATA  TYPES 


—  rile : 

P3dl__ayatera.a 

—  Author: 

Frank  Palazzo 

—  Date: 

15  Dec  89 

—  Modified: 

16  Dec  89  by  Laura  J.  White 

with  vatringa,  TIMERS; 
package  PSDL^SYSTEM  ia 

type  lnt_ll3t  la  array  (1..10)  of  integer; 

package  PSDL_STRINGS  la  new  vatringa (50) ; 
aubtype  PSDIj”e)1JEPTION  ia  PSDL__STRIMGS.VSTR1MQ; 
type  PSDiTtIMER  la  new  TIMERS. TIMER; 

EXCEPTIOH__ERROR, 

BUrrER^UNDERTLOH, 

BUrrEiToVERTLOH  :  exception; 


generic 

type  ELEMENT_TYPB  ia  private; 

package  SAMPIiED_STREAM  ia 

taak  DATA_STREAM  ia 

pragma  PRIORITT  (10); 

entry  CHECK  (HEM_DATA  :  out  BOOLEAN) ; 

entry  GET  (VALUE  :  out  ELEMi’.NT_TYPB) ; 

entry  GET  (VALUE  ;  out  PSDL_SYSTEM.PSDL_BXCBPTION) ; 

entry  PUT  (VALUE  ;  in  ELEMENT_TYPB) ; 

entry  PUT  (VALUE  :  in  STRING); 

entry  IS_EXCEPTION  (NAME  :  in  PSDL_STRINGS.VSTRING; 

”  CHECK  ;  out  BOOLEAN) ; 

entry  IS_NORMAL  (CHECK  :  out  BOOLEAN) ; 

end  DATA_STREAM; 
end  SAt<lPLSD  STREAM; 
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gence.ie 

type  BLEMENT_TYPE  La  private; 

package  DATAFLOW__STREAM  is 

task  DATA^STREAM  ia 
pcagnm  PRIORITY  (10); 
entry  CHECK  (NEW__DATA  :  out  BOOLEAN); 
entry  GET  (OUTVALUE  :  out  ELEMENT_TYPE) 
entry  PUT  (INVALUE  ;  In  ELEMENTJCTPE) ; 
end  DATA_STRBAM;  ~ 

function  FRESH  return  BOOLEAN; 
end  DATAFLOW^STREAM; 

generic 

type  BLEMENT^TYPE  is  private; 

INITIAL^VALUE  ;  ELEMENT_TYPE; 

package  SAMPLED_STATE_VAR  is 

task  DATA_STREAM  is 
pragma  PRIORITY  (10) ; 
entry  CHECK  (NEW^DATA  :  out  BOOLEAN); 
entry  GET  (OUTVALUE  !  out  ELEMENT_TYPE) 
entry  PUT  (INVALUE  :  in  ELEMENT_?YPE) ; 
end  DATA_STREAM; 
function  FRESH  return  BOOLEAN; 
end  SAMPLED  STATE  VAR; 


generic 

type  ELEMENTJTYPE  is  private; 

INITIALJ/ALUE  I  ELEMENT_TYPE; 

package  DATAFLOW_STATE_VAR  is 

task  DATA_STREAM  is 
pragma  PRIORITY  (10)  ; 
entry  CHECK  (NEW_DATA  ;  out  BOOLEAN) ; 
entry  GET  (OUTVALUE  :  out  ELEMENT_TYPS) 
entry  PUT  (INVALUE  ;  in  ELEMENT_TYPE) ; 

end  DATA__STREPM; 

function  FRESH  return  BOOLEAN; 
end  D/vTAFLOW_STATE_VAR; 

end  PSDL  SYSTfiM; 
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package  body  PSV)I»__SXSTEM  ia 

package  body  SAMPLED_STRT-AM  is 

package  VSTRING  renames  PSDL_sySXEM.PSDLi_3TRIHGS; 

type  DATA__SXRBAM_MODE  is  {NORMAL,  EXCPXIOM) ; 

type  DAXA~SXREAM_IOKEN  (MODE  ;  DAXA_SXREAM__MOOE  MORM^)  1* 
record 

INIXIAL12ED, 

NEW  DAXA  :  BOOLEAN  false; 


case  MODE  is 
vhen  NORMAL  -> 

NJVALUE  ;  ELEMENXJXXPB; 
when  EXCPXION  -> 

E_VALUE  :  PSDL_SYSXEM.PSDL_EXCEPXION; 
end  case; 
end  record; 

task  body  DAXA__SXREAM  is 

BUFFER  ;  DAXA_SXREAM_IOKEN; 

XempExcp  ;  PSDL_SXSXEM.PSDL_EXCEPIION; 

begin 

loop 

select 

accept  CHECK  (NBN_DAXA  :  out  BOOLEAN)  do 
NEH_DAXA  BUFFER. NEM^DAXA; 

end  CHECK; 
or 

accept  GEI  (VALUE  ;  out  ELEMENX_XYPE)  do 
if  not  BUFFER. INIXXALZZED  then 

raise  PSDL_SXSXEM. BUFFER_UNDERFLO»f ; 
elsif  BUFFER. MODE  -  EXCPXION  then 
raise  PSDL_SYSXEM. EXCEPX10N_ERR0R; 
else 

VALUE  BUFFER. N_VALUE; 

BUFFER. NEH_DAXA  false; 
end  if; 
end  GEX; 
or 

accept  GEX  (VALUE  :  out  PSDL_SYSXEM.PSDL_EXCEPXIOH)  do 
if  not  BUFFER. INZXIALZZBD  then 

raise  PSDL_SYSXEM. BUFFER_UNDBRFLOH; 
elsif  BUFFER. MODE  -  NORMAL  then 
raise  PSDL_SYSXEM. EXCEPX10N_BRR0R; 
else 

VALUE  BUFFER. E_VALUE; 

BUFFER. NEH_DAXA  false; 
end  if; 
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end  GET 


or 

accept  PUT  (VALUE  ;  in  ELEMENTJTTPE)  do 

if  (BUrrER.MODE  -  EXCPTION)  ""and  BUFFER. NEHJDATX  than 
raise  PSDL^ SYSTEM. EXCEPTION^ERROR;  ” 

else 

BUFFER  (^K>DE  •«>  HORMAL, 

XHITXALXZED  »>  true, 

NEHJJATA  •>  true, 

N  VALUE  ->  VALUE); 


or 


end  if; 
end  PUT; 

accept  PUT  (VALUE  :  in  STRXMG)  do 
—  VSTRXNG. assign (VALUE, TempExcp) ; 
BUFFER  (MODE  ->  EXCPTXOM, 

XHXTXALXZED  ->  true, 
NEWJ)ATA  ->  true, 
E_VALUE  ••>  TempExcp) ; 


end  PUT; 
or 

accept  XS_EXCEPTXOH  (NAME  ;  in  PSDL__STRXHGS .VSTRXNG; 
*"  CHECK  :  out  BOOLEAN)  do 

if  BUFFER. MODE  «  EXCPTXON  then 

CHECK  VSTRXNG. equal (BUFFER. E_yALUE  ,  NAME)  ; 

else 

CHECK  :«  false; 
end  if; 

end  XS^EXCEPTXON; 
or 

accept  IS_NORMAL  (CHECK  ;  out  BOOLEAN)  do 
CHECK  BUFFER. MODE  -  NORMAL; 
end  XS_NORMAL; 
or 

terminate; 
end  select; 
end  loop; 
end  DATA_STREAM; 
end  SAMPLED  STREAM; 


package  body  DATArLOW_STREAM  is 

type  DATA_STREAMjrOKEN  is 
record 

INITIALIZED, 

HEW_DATA  ;  BOOLEAN  false; 
VALUE  :  ELEMENTJTYPE; 

end  record; 
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task  body  DATA_STREAM  is 

BUrrER  ;  DATA_3TREAMjrOKEH; 

begin 

loop 

select 

accept  CHECK  (HEH_DATA  t  out  BOOLEAN)  do 
NEHJDATA  BUrrER.HBK_DATA; 
end  CHECK;  "* 


accept  GET  (OUTVALUE  :  out  ELEMEKTjrYrB)  do 

Li  not  (BUrrER.XNXTXALXSED  and  BUrFER.NEN^DATA)  then 
raise  PSOL_STSTEH.BUrrER_UHDRRrLON;  “ 
else 

OUTVALUE  BUrrEK. VALUE; 

BUrCER.NZK^DATA  false; 
end  if; 
end  GET; 


or 


accept  PUT  (XNVALUE  :  in  ELEMENT  jrXPE)  do 
if  BUrrER.NEN__DATA  then  ~ 

raise  PSDL_STSTEM.BUrrER_OVEIUrLON; 

else 

BUr PER. VALUE  XNVALUE; 
BUrrER.NEN^DATA  true; 

BUFFER. XNXTXALXEED  true; 

end  if; 
end  PUT; 


or 

terminate; 
end  select; 
end  loop; 
end  DATA_STREAM; 

function  FRESH  return  BOOLEAN  is 
RESULT  ;  BOOLEAN; 
begin 

DATA_STRBAM. CHECK (RESULT) ; 
return (RESULT) ; 
end  FRESH; 


end  DATAFLON  STREAM, 


package  body  SAHPLED_STATB_VAR  is 
type  DATA__STREAM_TOKEN  la 
record 

XtIXTXAliXZED, 

NEW_DATA  :  BOOLEAN  falae; 

VALUE  :  ELEMENT  J?YPE  XNXTIAL^VALUE; 

end  record; 

taak  body  DATA^STREAM  ia 

BUFFER  :  DATA__STREAM_TOKEN; 

begin 

loop 

aelecb 

accept  CHECK  (NEW_pXTA  :  out  BOOLEAN)  do 
NEW__DJATA  ;«  BUFFER. NEH^DATA; 
end  CHECK; 


accept  GET  (OUTVALUE  :  out  ELEMENT  JfyPB)  do 
if  not  BUFFER. INXTIALXZED  then  "* 
raiae  PSDL_STSTEM. BUFFER_UNDERrLOW; 
elae 

OUTVALUE  BUFFBR.VALUE; 

BUFFER. NEW  J)ATA  :»  falae; 
end  if; 
end  GET; 


accept  PUT  (INVALUB  :  in  ELEMENTJTTPS)  do 
BUFFER. VALUE  INVALUE;  "" 

BUFFER.  INITIALIZED  true; 

BUFFER. HEW_DATA  :«  true; 
end  PUT; 


or 

terminate; 
end  aelfict; 
end  loop; 
end  DATA_STREAM; 

function  FRESH  return  BOOLEAN  la 
RESULT  :  BOOLEAN; 
begin 

DATA_STREAM. CHECK (RESULT) ; 
return  RESULT; 
end  FRESH; 

end  SAMPLED  STATE  VAR; 
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packnge  body 


DATArLOW  STATE  VAR  ia 


typo  DATA_STRBAM_TOKEN  ia 
record 

IlUTXAIiXZED, 

NEW^DATA  :  BOOLEAN  f«lao; 

VALUE  :  ELEMENTJCTPE  XNXTXAL_VALUE; 
end  record; 


taak  body  DATA_STREAM  ia 

BUrrER  :  DATA_STREAMjrOKEN; 
begin 
loop 
aelect 

accept  CHECK  (NEN_DATA  :  out  BOOLEAN)  do 
NEWJDATA  :•*  BUrrER.NEM_DATA; 
end  CHECK; 


accept  GET  (OUTVALUE  ;  out  ELEMEMTJTTPE)  do 

if  not  (BUFFER. XNXTXALXEED  and  BUFFER.NENJDATA)  then 
raiae  PSDL_STSTEM.BUFFER__UNDERFLOH; 
elae 


OUTVALUE  ;«  BUFFER. VALUE; 
BUFFER. NEH_DATA  falae; 
end  if; 
end  GET; 


accept  PUT  (INVALUE  :  in  ELEM£NT_TTPE)  do 
if  BUFFER. NEK_DATA  then  ” 

raiae  PSDL_iySTEM.BUFFER_OVERFLOH; 
else 

BUFFER. VALUE  XNVALUE; 

BUFFER. NEN_DATA  true; 

BUFFER. INITIALIZED  true; 
end  if; 
end  PUT; 


or 

terminate; 
end  aelect; 
end  loop; 
end  DATA  STREAM; 
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function  FRESH  return  BOOLEAN  La 
RESULT  :  BOOLEAN; 
begin 

DATA_STREAH. CHECK (RESULT) ; 
return (RESULT) ; 
end  FRESH; 

end  DATAFLOW_STATEJ/AR; 
end  PSDL  SYSTEM; 
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APPENDIX  O  KODIYAK  SPECIFICATIONS  FOR  STAHC  SCHEDULER 


I - 

I 

I  file; 

!  euchoc; 

I  date: 

!  modified: 


I 

I 


pre  _33.)c 
laura  maclowe 
dec  88 

dec  89  by  laura  j.  white 


idefinitiona  of  lexical  claaaea 


%define  Digit 
Idefine  Xnt 
^define  Letter 
Idefine  Alpha 
tdefine  Blank 
Idefine  Char 
Idefine  Quote 


: 10-9J 
; (Digit )+ 

;  (a-rA-Z__) 

:  ((Letter) | (Digit)) 
;  t  \a) 

:r()l 

;(“] 


I  definitions  of  white  apace 
:(Blan)c)-f 


I  definicions  of  compound  symbols  and  (ceyworda 


GTE 

LTB 

MEQV 

ARROH 

TYPE 

OPERATOR 

SPECiriCATIOH 

END 

GENERIC 

INPUT 

OUTPUT 

STATES 

INITIALLY 

EXCEPTIONS 

MAX_BXEC_TIMB 

MAX~RBSPJCIME 

min~call”period 

MICROSEC"" 


;  type  I TYPE 
: operator | OPERATOR 
: specification | SPECIFICATION 
: end I  END 

: generic  I  GENERIC 
;  input  I  INPUT 
i  output  I OUTPUT 
; states  I  STATES 
: initially | INITIALLY 
: exceptions | EXCEPTIONS 

:maxijnum(  ] execution {  ] time) MAXIMUM)  ] EXECUTION [  ]TZME 
:maxiinum[  (response)  ] tine) MAXIMUM)  ] RESPONSE [  ]TZME 
:minimum(  ]calling[  (period) MINIMUM!  ’iCALLINGl  (PERIOD 
:microsec |  MtCROSEC | ua 
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MS 

SEC 

MIH 

HOURS 

BX 

KEXHORDS 

DBSCRIPTIOH 

AXIOMS 

IMPEEJIENXATIOM 

ADA 

GRAPH 

DATA_^SXREAM 

TIMER 

CONTROL 

TRIGGERED 

ALL 

SOME 

PERIOD 

FINISH 

EXCEPTION 

READ 

RESET 

START 

STOP 

IF 

NOT 

AND 

OR 

TRUE 

FALSE 

ID 

STRIN6„LIT5RAL 

INTEGKR_LITERAL 

REAL^LITSRAL 

text” 


:m3tMS 
:a«ctSEC 
;  min  I MIN 

:  hotica  |  HOURS  i  hca  |  HRS  |  he  |  HR 

:by[  ] cequirementalBXl  ] REQUIREMENTS 

:  key weeds  I KETHORDS 

;  description ( DESCRIPTION 

:  axioms  I  AXIOMS 

:  implementation | IMPLEMENTATION 

:uda|Ada|ADA 

:gcaph|GRAPH 

:dBt8(  ] stream! DATai  ) STREAM 
:  timer ITIMER 

: control!  ] constraints! CONTROL!  } CONSTRAINTS 
:  triggered ITRXGGERED 
;by!  JaUIBX!  JALL 
;by!  IsomelBl!  JSOME 
:  period) PERIOD 

:£iniah!  ) within! FINISH!  ] WITHIN 
:  exception | EXCEPTION 
;read(  ) timer! READ  I  ) TIMER 
;  reset  I  ')  times! RESET!  1  TIMER 
: start  I  i timer I  START I  ] TIMER 
sstopi  5  times  I  STOP!  ) TIMER 
:  if  I  IF 

:"""|"not'’|“HCT" 

:''fi"|"8nd'’rAtTi)" 

i"|"|"or"!"OR-^ 

: true! TRUE 
: false | FALSE 
: (Letter) (Alpha) ^ 

: (Quote) (Char)* (Quote) 

Mint) 

: (Int)"."(Int) 

:"("(Char)*"}" 


I  operator  precedences 

I  %left  means  group  and  evaluate  from  the  left 


%left 

OR; 

%left 

AND; 

%left 

NOT; 

%left 

•<' , 

%left 

!  •  t  . 
*  t 

%% 

GTE,  LTE,  NEQV; 


278 


I  attribut*  declarationa  for  nonttradnal  ayabola 

start  (  trn:  string;  {; 
padl  (  trn:  string;  ); 
cootponanb  (  trn:  string;  ); 

data_^typ«  {  trn:  string;  ); 

oparator  (  trn:  string;  ); 
type_sp«c  (  trn:  string;  ); 

typa_decl_J.__llat  (  trn;  string;  ); 
typa^dacl  (  trn:  string;  ); 

op__spac_0_llat  (  trn:  string;  ); 
oparator_spac  (  trn:  string;  ); 

Intarface  {  trn:  string;  ); 

attrlbuta  (  trn:  string;  ); 

time  (  trn:  string;  ); 

unit  {  value:  int;  ); 

ld__llat  (  trn:  string;  ); 

re<)Mta_trace  (  trn:  string;  ); 

functionality  (  trn:  string;  }; 

keywords  (  trn:  string;  ); 

infonaal__deac  (  trn:  string;  ); 

fonsal^desc  (  trn:  string;  ); 

type^lstpl  (  trn:  string;  ); 

op_^impl__0_list  (  trn;  string;  ); 

operator_lBkpl  (  trn:  string;  children:  string; ) ; 

padl_lBf>l  (  trn:  string;  children:  string;  ); 

data__flow_dlagraia  (  trn:  string;  ); 

link__0__llst  (  trn:  string;  ); 

link  (  trn:  string;  ); 

opt_tliM  (  trn:  string;  ); 

streasts  (  trn:  string;  ); 

type_naaM  (  trn:  string;  ); 

timers  (  trn:  string;  ); 

control__constralnts  (  trn:  string;  children:  string;  ) 

constralnt_optlons  (  trn:  string;  children:  string;  ); 

opt_trlg  (  trn:  string;  ); 

trigger  (  trn:  string;  ); 

optjper  (  trn:  string;  ); 

opt_fin__w  (  trn:  string;  ); 

tlBMr_op  (  trn:  string;  }; 

opt_lfjpredlcate  (  trn:  string;  ); 

predicate  (  trn:  string;  ); 

expression_llst  (  trn:  string;  }; 

expression  (  trn:  string;  }; 

relation  (trn:  string;  ); 

8laiple_expresslon  {  trn:  string;  ); 
exceptlon_expr  (trn:  string;  }; 
rel_op  (trn:  string;  ); 
sign  (trn:  string;  ); 
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Iattribvit«  declacstions  for  terminal  aymbola 


X0(  %t«xt;  string;  ); 

TEXT(  %text:  string;  ); 
STRIH'3_Ij1TERA1(  %text:  string;  ); 
INTEGER_LITERAIi|  %text:  string;  J; 
RERI._IilXERAIi{  %text:  fltring;  J; 


1% 


Ipsdl  grammar 

start 

:  psdl 

{  %output (psdl.trn) ;  ) 


psdl 

:  psdl  component 

(  psdl(l] .trn  ■"  (psdi(2] .trn^component.trn] ;  ) 

I 

{  psdldl  .trn  -  ) 


component 

;  data__type 

(  component. trn  ■■  datatype. trn;  ) 
I  operator 

(  component, trn  operator. trn;  ) 


data__type 

:  TYPE  ID  type_speo  type_impl 

(  data_type.trn  -  (type_spec.trn,type_impl.trn) ;  J 


operator 

:  OPERATOR  ID  operator_apeo  operator_impl 

(  operator. trn  «■  ["LIHEAGE", "\n", ID.Itext, "\n", 

operator__impl. children,  "EHD  LINEAGE",  "\n", 
ID . %text , "\n" , operator_spec .trn, 
operator_lmpl.trn] ;  ) 


type_apec 

;  SPECIFICATION  type_decl_l^list  op_spec_0_li8t  functionality  END 
{  type_spec . trn  ■«  op_3pec_0_li3t.trn;  ) 


2«0 


type_decl_l_li3t 
;  typ«__decl 

(  type  decl  X  Xiat.trn  ••  type  decX.trn;  ) 

I  “ 

(type__decl_l_liat,trn  J 


type__decX 

;  id__liat  ' ; '  type__neme 

{  type_deol.trn  »  id_liat.trn;  } 

1  id__li8t  * ; '  type^naiM  ' ,  *  type__decl 

{  typ«_decl.trn  -  [id_liat.trn,type_^decl.ttnl ;  ) 


op__3pac__0_li3t 

;  op__apec_0_liat  OPERATOR  ID  operator_8peo 
{  op_apec_0_liat(l] .trn  -  top_apec_0_liatl21 .ttn,ID,%text,"\n", 

operatoE_apec . trn] ;  ) 

I 

(  op_ap«o_0_li8t.trn  -  ) 


operator^apec 

:  SPECZrxCATXON  interface  functionality  EHD 
'  operator_apec.trn  «•  inter f ace. txn;  ) 


inter.  j 

:  interface  attribute  reqnta^trace 

(  interface [1] .trn  «  [interface(2] , trn, attribute. trn) ;  ) 

I 

(inter face. trn  ■  ) 


attribute 

:  GENERXC  type__decl 

{  attribute. trn  ) 

I  XHPUT  type__decl 

(  attribute. trn  -  ) 

I  OUTPUT  type_decl 

{  attribute. trn  -  ) 

I  STATES  typejdecl  XNXTXALIiY  expre8aion_li8t 

(  attribute. t rn  ("STATE",  "\n",typejdecl. trn,  "CJfDSTATE",  "\n"J ;  ) 

I  EXCEPTXONS  id_li3t  ” 

(  attribute. trn  ) 

j  MAX_EXEC_TXMB  time 

{  attribute.trn  ■■  ("MET", "\n",ti»e.trn, "\n"J ;  ) 

1  MJ[H_CALL_PERXOD  time 

{  attribute.trn  ("MCP", "\n", time. trn, "\n"] ;  ) 

I  MAX  RESP  TIME  time 
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(  attribute. trn  *  ("MRT", •'\n"^tim«.trn, "\n") ;  J 


id__li3t 

;  ID  ' , '  id_liat 

{  id__li3t[lj  .trn  ••  [ZD.%t«xt,  "Nn",  id__liat  [2]  .trn)  ;  ) 

I  ID  ~ 

(  id__li3ttl)  .trn  "  lID.%t«xt,  "\n"  J ;  ) 

f 

time 

:  INTEGER_L1TERAL  unit 

(  time.trn  «  i23 (32i (INTE6ER_LIXERAIi.%t«xt) *unit. value) ;  ) 

t 

unit 

;  MICROSEC 

(  unit. value  ••  1;  ) 

I  MS 

(  unit. value  1000;  ) 

I  SEC 

(  unit. value  ••  1000000;  ) 

I  MIN 

(  unit. value  ■  60000000;  ) 

I  HOURS 

(  unit. value  3600000000;  ) 

I 

(  unit. value  "  1000;  } 

t 

reqmt3__trace 

:  BY  id_li3t 

{  reqmt3_trace.trn  ) 

I 

(  reqmt3_trace.trn  ) 


functionality 

:  )ieyword3  in£o.Tmal_deac  £ormal_de8c 
{  functionality. trn  ) 


keywords 

:  KEYWORDS  id^liat 

(  keywords. trn  ••  "\n";  ) 

I 

{  keywords. trn  ) 

r 
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in£otnial_de3c 

;  DESCRIPTIOK  TEXT 

{  informal  desc.trn  "\n";  | 

I 

(in£ormal_deac.trn  ) 


£onnal_deso 

:  MCZOMS  TEXT 

(  formal  daac.trn  ••  "\n";  ) 

I 

(  formal  desc.trn  ) 


type__impl 

7  ZMPLEHENTATZOH  ADA  ZD  EHD 

{  type__impl.trn  ••  {ZD.%text, "\n"J ;  ) 

I  ZHFLEtaNTATZON  type^name  op_iB«)l_0_list  BHD 
{  type__iinpl.trn  «  op_i»pl_0_liat.trn;  ) 


op_^impl__0_list 

;  op_impl_0__li3t  OPERATOR  ZD  operetox^iaipl 

t  op__i»pl__0_llat(l]  .trn  ■  (op__l»pl_0__liat[2]  .trn, ID.Itext,  "Sn", 

operator  iapl.trn];  ) 

I 

(  op_impl_0__li8t(l]  .trn  «  "•;  I 


operator^impl 

:  ZW LEHENTATZON  ADA  ZD  EHD 

{  operator_impl.trn  -  lZD.%text, "\n") ; 

operator_ijnpl . children  ("ATOMIC",  "\n") ;  ) 

I  IMPLEMENTATION  p8dl_iiiipl 

{  operator_impl.trn  -  p8dl_i»pJ •trn; 

operator_impl. children  •*  psdl^iaqpl. children; ) 


pedl^impl 

:  data_£low_diagram  etreams  timera  control_con8tralnt8  infonaaljdeac  END 
(  padl^impl.trn  (data_£low_dia9ran.trn, control^conatrainta.trn] ; 
p8dl_lmpl . children  m  control_^con8traint8.children; ) 

data_£low_^diagram 

:  GRAPH  link_0_li8t 

(  data_£low_diagram.trn  link__0_liat.trn;  ) 

/ 


m 


link  0  list 

T  Tink_0_li3t  link 

{  link~0_li3t(l] .trn  "  tiin):_0_list(21 .ttn,link,trnl ;  ) 


I 

I  link_0_li3t . brn  -  | 


link 

;  ID  ' . '  ID  opt_time  ARROW  ID 

{  link. brn  -  ["LINK", "\n", ID(1J .%b«xb, "\n", ID(2] .%b«xb, "\n", 
opb_^bime,brn,  "\n",ID(3]  .%bexb,  "\n"l ;  ) 


opb__bitne 

;  bime 

{  opb  bime. brn  *■  bime. brn;  ) 

I 

I  opb_bime.brn  **0";  ) 


sbreame 

;  DATA^STREAM  bype_decl 
{  abreams.brn  -  ) 

i 

(sbreams.brn  «  ) 

I 


bype__name 

:  ID  ' ('  bype_decl  ')' 
i  bype_name.brn  «•  ""  ;  ) 
I  ID 

(  bype_nan\e.brn  ;  ) 


bimers 

:  TIMER  id_li3b 

(  bimera.brn  ;  ) 

I 

(bimera.brn  ) 


conbtol_con3brainb3 
:  CONTROIi 

(  conbrol_con3brainbs.brn 

conbrol_con3brainb3. children 

I  CONTROL  OPERATOR  ID  opb_brig  opbjper  opb__fin_w  consbrainb_opbiona 
{ conbrol_con3brainb3 .brn  -  [ ID . %bexb, " \n" , opb_per .brn, opb_f ln_w .brn, 

con3brainb_opbion3 . brn] ; 
conbrol_con3brainbs. children  •»  [ID.%bexb,  "\n", 

con3brainb_opbion3. children] ;  ) 
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(control._con3tr«int«.trn  •• 
contcol  constrainta.chlldcsn  «  "■;) 


conatraint^optiona 

OUTFUT  id__liat  xr  pradicata  ramta^traca  conatraint_optiona 
(  conatvainbjopfcionatl] .trn  conatraint_options(2] .trn; 
conatcaint__optiona.childran  conatraint_optionat2] .ohlldcan; ) 

I  TCaCEPTXOH  XD  opt_i£jpradicata  raqnba__traca  conatraint^options 
(  conatz;alnt_optiona(l]  .trn  conatEaint_^optiona(2]  .ten; 
conatraint^optlona.childcan  •>  conatraint_optlona[2] .childcan; ) 

I  tliaaE_op  XD  opt__l£_pEadicata  raqnta__tEaca  const raintjoptiona 
{  conatcaint^optlona(l] .trn  conatraint_optiona(2] .ten; 
conatEalnt_optiona.childcan  conatEaintjoptiona[2] .ohildtan; ) 

j  OPERATOR  XD  opt_trig  optjpar  opt_)!in__w  conatralnt_optiona 
(  conatcaint_optiona(l] .trn  <■  (XD,%taxt/ "\n"f opbjpar.trn^ 
opt_fin__w.txn,constEalnt_optlona(2] .txn) ; 
conabEaint_opblons.childEan  ■■  (XD.%taxt/  *\n", 

constraint  options (2] .childcan] / ) 

1 

(  conatraint^optiona.trn  •• 
conatEaint__options. childcan 


opt_tJ.*ig 

:  TRXGGERED  tciggac  opt^ifjpcadicata  zaqaits^^tcaca 
(  opt  trig. ten  “  ) 

I 

(opt__trig.tEn  -  ) 


tciggac 

:  ALIi  id__li8t 

(  tciggac. ten  ••  ) 

I  SOHE  id_li8t 

{  tciggac. ten  *•  ) 

I 

(trigger. ten  -•  ) 


opt_par 

tPERXOD  time  cacpnta_tcaca 
(  optjpar. ten  ••  ("PERXOD", "\n", time. ten, "\n"] ;  ) 

I 

(  optjpar. ten  ) 


opt_i;in_w 

:  FXNXSH  time  reqmta__trace 
(  opt_fin  _w.trn  ••  ("HXTHXH",  "\n", time. ten,  "Nn"! ;  J 
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I 

(  opt:__fin_w.ttn  ) 


timQt__op 

r^REJ^D 

{  tijr.er_op.ttn  ) 

I  RESET  “ 

(  tiiner_op.trn  «  ) 

I  START 

(  tiJt>er_op.ttn  ) 

I  STOP  ~ 

{  tii«er_op.ttn  ■  ) 


opt_if_predic«te 
;  ZF  predicate 

{  opt  ifjpredicete.trn  ) 

I 

(opt_if_predicate.trn  ) 


expreasion_li.'it 
:  expression 

{expression_list.trn  ) 

I  expression  ' , '  exptes8ion_list 
(expres8ion_list[l]  .trn  «■  J 


expression 

:  XNTEGER_I.ITERAL 
(expression. trn  "" 

I  REAIi_LZTERAL 

(expresrion.trn  ••  "" 
I  STR1NG_LITERAL 

(expression. trn  ■■  "" 
I  TRUE 

(expression. trn 
I  FALSE 

(expression. trn  "" 

I  ID 

(expression. trn  -  "" 
i  type_nsme  ZD  ' (' 
(expression. trn  •• 


) 

) 

) 

1 

) 

) 

expression  list  ' ) ' 
) 


m 


predicate 

:  relation 

( predicate. txn  »  J 
I  relation  AND  predicate 
(predicate(l] .trn  ~  J 
I  relation  OR  predicate 
(predicate [1]  .trn  J 


relation 

:  aimple_^exprea8ion  reljop 
(relation. trn  "  J 

I  ainple^expreaaion 
(relation. trn  <■  ) 


a  ixiple_^exp  r  a  a  a  ion 

:  aign  XHTEGBR_LXTCRAL  unit 
(ain9le__expreaaion.trn 
I  aign  RCAL_tXTERAZ. 

(aiMple_expreaaion.trn 
I  ID 

(aiiiiple__exprea8ion.trn  «• 

I  STRIHcJIlTERAL 

(ai»ple_exprea8ion.trn  •• 

I  '  ('  predicate 

(aittple_expreaaion.trn 
I  HOT  XD  "" 

(ainple^expreaaion.trn 
I  HOT  ' ('  predicate  *)' 
(8iag>le_expre88ion.trn  ■■ 

1  TRUE  "" 

(ainple^expreaaion.trn  «< 

I  FALSE 

(aiaiple^^expreaaion.trn 
I  HOT  TRUE 

(8iaiple__expreaaion.trn 
I  HOT  FALSE 

(8ixiple_exprea8ion.trn 


expreaaion 


I  LTC 

{reX_.op.tjrn  J 

I  NCQV 

(reX  op.trn  ••  I 

I 

{reXjop.tsn  •• 

I 

sign 

; 

(sign  cn  ••  ) 

I 

(aigj  'n  "  ) 

I 

(sign. ten  •*  J 
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APPENDIX  P  STATIC  SCHEDULER  DRIVER 


—  file; 

driver. a 

—  author: 

murat  kilic 

—  date: 

nov  89 

—  BKxlified: 

26  dec  89  by  laura  j.  white 

with  TeXT_IO; 
with  rXX.ES;  ui«  rZX.ES; 
with  ritE__rR0CESS0R; 
with  EXCE^TZOM^ttAMOLER; 
with  t0f0XXX»ZCAX._30RTER; 
with  HAM<0NZC_BXSCK_BUZXJ3ER; 
with  OrERATOlTsCMEOULER; 

proc«dur«  STATZC_SCHBOUX.SR  is 


THBJJRAFM 

PRECBOEMCE_LZST 

SCH^ZHrOTs” 

AGENDA 

BASE_BX.OCK 

H_B_LEHGTH 

STOP  TZHE 


DZGRAPH. GRAPH; 

DIGRAPH .  V_X.ZSTS .  X.Z8T; 
SCHEDUX.BjtHPUTS_I.ISt .  XiIST; 

scheoux.eJihputsJlist.  list; 
integer;""  "" 

INTEGER; 

INTEGER  0; 


bsgin 

riLB_PROCESSOR.SEPARATE_DATA  (THBJJRAPM) ; 
riLE^PROCESSOR. VALIDATEJDATA (THeJsRAPH) } 

TOPOLOGZCAL_SORTER.TOPOLOGZCAL_SORT(THEjORArH.  PRECEDENCE_LX8T) ; 
KARMONIC_BLOCK_BUIX.DBR.CALC_PBRXOOXC_EQUIVALEirr8  (PRECBDBNCB_LX8T)  } 
HARHONZC~BLOCK_BUILOER.riND~BASE_BXXX:K  <PRECEOENCB_LX8T,  BASB_BLOCK) ; 
HARMONIC_BLOCK”BUILDER.riHD“BLOCK_LENOTH  (PRSCE0ENCE_LI8T, H_B_LEiWTH) ; 
OPERATOR_SCHEDULER.TEST_DATA(PRECEiDENCE_LIST#  H_B_LENbTH)  ; 
loop 

i£  NOT (TEST_VERZriEO)  th«n 

TEXT_XO. PUT ("Although  «  sch«dul«  My  b«  possible,  these  is  no  *); 
TEXT_IO.PUT_LZNE("gussantee  that  it  will  execute"); 
TEXT_ZO.PUT_LZNE ("within  the  requited  tisdng  constrainta.") ; 

text”io. hen”lihe; 

end  if; 
begin 

OPERATOR_SCHEDULBR.SCHEDULt_lHITIAL__SET 

(PRECEDENCE  LIST,SCH  INPUTS, H_B  LENGTH, STOP  TIME); 
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OPSRiVTOR^^SCHEDUIiER .  SCHBDULB_RESXjOr_BLOCK 

“(PRECEDEHCB_LISt^ SCH^IHPUTS,  H__B_1.EHGTH, STOP_TIME) ; 
OPERATOR_SCI!EOUIiER.CRERTE_STATIC_SCHEDULE 
“{XHEJJRAPHfSCH^IHPUTS,  HJ>_LENG'-’H)  ; 

TEXT__IO.PUT('*A  feasible  schedule  founds  ") ; 

TEXV~XO.PUT_l.lHE ("Che  Harmonic  Block  with  Precedence  "); 
TEXT“lO,rux”LIHE("  Constraints  Scheduling  Algorithm  Used.  ") ; 
SCH_InputS  T»  null; 
exit; 
exception 

when  operator_scheouler.missed_ueaoz.xmb  -> 

null; 

when  0PERAT0R_SCHEDULER.0VER_XIME  -> 
null; 

end; 

begin 

HArvMONIC_ELOCK_BUILDER.CALC_PERXODXC_EQUXVALEMTS 
”  “(XHEjGRAPH. VERTICES)  ;” 
OPERATOR_SCHEDOLER.SCHEDULEJKITH_EARLXEST_START 
~"(THE_GRAPH,AGEHDA/H_B_LENGTH)  ; 

OP  ERATOR_SCHEDULER . CREATE_STATIC_SCHEDOLE 
“"(XHEjCRAPH, AGENDA, M_B_LEMGTH) ; 

XEXT_XO.PUT_LXNE ("A  feasible  schedule  found,  the  Earliest  Start") 
XEXX~IO.PUX~LXNE ("Scheduling  Algorithm  Used.  "); 

AGENDA  null; 
exit; 
exception 

when  OPBRATOR_SCHEDULER.MXSSED_DEADLXNE  -> 
null; 

when  OPERATOR_SCHEDULER.OVER_TIME  -> 
null; 

end; 

begin 

0PERAT0R_SCHEDULER.SCHEDULE_M1TH_EARLXEST_DEADLXNE 
""  (THEjGRAPH, AGENDA, H_B_LENGTH) ;  ~ 

operator_scheduler.create_sxatIc_schedulb 

""  (THEjGRAPH, AGENDA, H_B_LENGTH) ; 

XBXX_10.PUX_Li'ne("A  feasible”schedule  found,  the  Earliest  "); 
XEXt”io.PUT_L1NB ("Deadline  Scheduling  Algorithm  Used.  "); 

AGENDA  null; 
exit; 
exception 

when  0PERAT0R_SCHEDULER.MISSED_DEADLINE  -> 
null; 

when  OPERATOR_SCHEDOLER.OVER_TIME  -> 
null; 

when  OPEKATOR_SCHBDULER.M1SSEDjOPERATOR  -> 
null; 

end; 
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«nd  loop; 


«xc«ption 

when  riI.E_PROCi:SSOR,CRIT_pp__IACKa_MET  -> 

EXCEPTXOH_MANDtERXRITjO_r_KBT  (KxceptionjOperetoc) ; 

when  riLE_PRCX:ESS0R.MET_H0T_LE3S_TIUM_P»RI00  -> 

EXCEPTIOH_RAHDtER.MBT”M__10r__PERXOO  (ixcepfcionjOperetoc) ; 

when  rXXiE_PROCESSOR.MET_MOT_LE3SJCHAH_MRT  -> 

EXCEPTXON_KRHDLER.MET_H__ljr_HRT (Exception_0?et»tot) ; 

when  rXXiE__PROCE3SOR.HCP__MOT_LE33JCHAHJMRT  -> 

EXCEPTXON_HRHDLER.MCP__H^L__I_MRT  (BxceptlonjOpexator)  } 

when  rXLE__PR0CE330R.MCP_LE33jriaH_MET  -> 

EXCEPXXOM_HANOLER.MCP3'Jf J**  (ExceptionjOperetor) ; 

when  rXLEJPRCX:E330R.MET__XSj;RERTERjrHAK_rXMXSMJfXTHlM  -> 

EXCEPTXW^KAHOLER.MET^XjSjr^rXMXSKJIXTMXMiExceptionjOperetor) 

nhen  rXXiE__PROCE3SOR.3PORADXCjOP_LACKS_HCP  -> 

EXCEPTXOH_HAm>tER.SPORADICjq__L_MCP  (ExceptionjOperetor) ; 

when  riLE_PRCX:E3SOR.SPORJU)XC_OP_IACKS_MRT  «> 

EXCBPIXOM_HIUroi:iER.SPORADICjO_E_MRT  (BxceptionjOp«x«tor)  f 

when  SCHEDULE_IKP0TS_LI3T.BAD_VAL0B  -> 
BXCEPTXOH_HANDLBR.S_I_Ii__EADJ/ALUE; 

when  DIGRAPH. V_LI3T3.BAD_yAL0B  -> 

EXCEPTXOH_HAHDI.BR .  V_I._iAD_VAI.UE; 

when  DXGRAPH.B_LX3TS.BAD_VALUE  -> 

EXCEPTXOM_HAiTOI.ER.  E_L_iAD_VALUB; 

when  HARMOHXC_BLOCK_BUXtDER.HO_BASE_BLOCK  -> 
EXCEPIXOM_HAHDLER.HO_B_BI.OCK;  ” 

when  HARMOMXC_BLOCK_BUXLDER.MO_OPERATOR_IM_LIST  «> 
EXCEPTXOH_HWIDLER.MO_OP_IM_Li3T;  ” 

when  HARMOHXC_BLOCK_BUXLDER.MET_MOT_LESS_THAH_PERIOO  »> 
EXCBPTXOM_HAMDLBR.MBT_M_L_T_PERXOD (ExceptionjOpecator) ; 

end  3TATXC  SCHEDULER; 
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APPENDIX  Q  STATIC  SCHEDULER  ERROR  HANDLER 


—  file:  e_handler_3.» 

-**-  author:  murat  kilio 

—  date:  nov  B9 

—  modified:  dec  09  murat  kilic 

with  FIIiES;  uae  FILES; 
package  EXCEPTZON_KkNOLER  ia 

procedure  CRITjO__L_MEX(ExceptionjOpcrator  :  in  OPERATOR__XD)  ; 
procedure  MET_N__L_T_PERIOD (ExceptionjOperator  :  in  OPERATOR_ID) ; 
procedure  MET__N__L_T_MRT  (ExceptionjOperator  :  in  OPERATOR__ID) ; 
procedure  MCP__N__LJX_MRT  (ExceptionjOperator  :  in  OPERATOR^^ID) ; 
procedure  MCP^Ljr_MET (ExceptionjOperator  ;  in  OPERATOR_lD) ; 
procedure  MET_l_Gjr_,FlNlSK__WlTHIN  (ExceptionjOperator  :  in  OPERATOR^XD) ; 
procedure  PERXOD__Ljr_FXNXSHJ<XTHIN(Exception_Operator  :  in  OPERATOR__XD) 
procedure  SPORADXCjO_LJMCP (ExceptionjOperator  :  in  OPERATOR_XD) ; 
procedure  SPORADIC_0_LJ>1RT  (ExceptionjOperator  :  in  OPERATOR_XD)  ; 
procedure  S_I_L__BAD_VALUE; 
procedure  V_L_BAD__VALUE; 
procedure  E_L_BAD__VALUE; 
procedure  NO_B_BLOCK; 
procedure  NOjOP_XN_LXST; 
end  EXCEPXXON  HANDLER; 
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APPENDIX  R  STATIC  SCHEDULER  ERROR  HANDLER 


—  file: 

a__handlar_b .  a 

—  auchor: 

murat  kilic 

—  data: 

nov  89 

—  modified: 

dec  89  by  murat  kilio 

with  XEXT_10; 

with  rxiiES;  uae  rZLBS; 

packaga  body  BXCErTZON_HAMDLER  ia 

procadura  CRXTjO_L_HET(Excaption_jOparator  :  in  OEERATOR__ZD)  ia 
bagin 

TEXT__XO.PUT  ("Critical  Oparator  ■); 

VARSTRXMG.PUT  (ExcaptionjOparator) ; 

TEXT_XO.PUT_IiXMr  ("  lauat^hava  an  MET"); 

and  CRITJ)_IiJ5et; 

procadura  HET_N__L_T_PER10D{ExcaptionjC^rator  :  in  OfBRATOR^ZD)  is 
bagin 

TEXT_XO.PUT  ("MET  ia  graatar  than  PERIOD  in  oparator  ") ; 
VAR5TRXHG.PUT_LXME  (ExcaptionjOparator) ; 
and  KET_H_b_T_PERXOO;  ” 

procadura  HET_N_IiJT_MRT (ExcaptionjOparator  :  in  OPBRATOR_XD)  is 
bagin 

TEXT_XO.PUT  ("MET  is  graatar  than  MRT  in  oparator  ") ; 

VARSTRXHG .  Pirr__LXNE  (ExcaptionjOparator)  ; 
and  MBT_H_L_T_»«T; 

procedure  MCP_H_Iijr_MRT(ExcaptionjOparator  ;  in  OPXRXTOR_XD)  is 
begin 

TEXT_XO.PUT  ("MCP  is  graatar  than  MRT  in  oparator  "); 

VARSTRXNG . PUT_LXNE  (ExcaptionjOparator) ; 
end  MCP_N_Ljr_MRT; 

procedure  MCP_L_T_MET (ExcaptionjOparator  ;  in  OPERATOR__XD)  is 
bagin 

TEXT_XO.PUT  ("MCP  is  lass  than  MET  in  oparator  ") ; 

VARSTRXNG. PUT__I.XNE  (ExcaptionjOparator) ; 
and  MCP  L  T  MET? 
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pcoceUuce  HET_IJ5_T__FimSH_HITHIN 

(SxceptionjOperatoc  ;  in  OPERATOR_ID)  ia 

begin 

TEXT_IO.PUT  ("MET  is  greater  than  FIMISHJKITHIH  in  operator  ") ; 
VARSTRING.PUT__LINE  (ExceptionjOperator) ; 
end  MET_Ij;_T_riNISKJ«ITHlH;  “ 

procedure  PERIOD_Ljr_riNISHJKlTHXH 

(ExceptionjOperator  :  in  OPERATOR_XD)  ia 

begin 

TEXT_IO.PUT  ("Period  ia  leaa  than  riNXSHJKITHXM  in  operator  ") ; 
varstrXRG.PUT^IjXNE  (ExceptionjOperator) ; 
end  PERXOD_ljjr_?IMXS»_HXTMIH;  ~ 

procedure  SPORADXCjO__Ij_MCP  (ExceptionjOperator  ;  in  OPERATOR__ID)  ia 
begin 

TEXT^XO.PUT  ("Sporadic  Operator  ") ; 

VARSTRXHG.PUT  (ExceptionjOperator) ; 

TEXT_IO.PUT_bXNE  ("  muat^have  an  MCP"); 
end  SPORADXC  0  L  MCP; 


procedure  SPORADICjO__LJMRT  (ExceptionjOperator  :  in  OPERATOR__XD)  ia 
begin 

TEXT_10.PUT  ("Sporadic  Operator  "); 

VARSTRXHG.PUT  (ExceptionjOperator) ; 

TEXT_XO.PUT_IjIME  ("  mU3t’'have  an  MRT") ; 
end  SPORADXC  O  L  MRT; 


procedure  S_I__L^BAD_VALUE  ia 
begin 

TEXT__XO.PUT  ("Tou  try  to  get  a  achedule  input  where  your  pointer  ") 
TEXT_XO.FUT_liXNE  ("ia  pointing  a  null  record."); 
end  S_i_L_BADj;ALUE; 

procedure  V_L_BAD_VALUE  ia 
begin 

TEXT_IO.PUT  ("You  try  to  get  an  operator  where  your  pointer  "); 
TEXT__IO.PUT_bXNE  ("ia  pointing  a  null  record."); 
end  V  L  BAD  VALUE; 


procedure  E_L_BAD__VALUE  ia 
begin 

TEXT_IO.PUT  ("You  try  to  get  a  link  data  where  your  pointer  "); 
TEXT_IO.PUT_LXNE  ("ia  pointing  a  null  record."); 
end  E  L  DAD  VALUE; 


procedure  NO_B_BLOCK  ia 
begin 

TBXT_IO.PUT_LINB  ("There  ia  no  BASE  BLOCK  in  this  ayatem."); 
end  HO  B  BLOCK; 
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pcocedure  HO_OP__IH_LIST  i« 
begin 

TEXT_IO.PUT_HHE  ("These  ia  no  CRITICAL  OPERATOR  in  thla  ayat«m 
end  HOJ5P_IM_riST; 

end  EXCEPTION  HANDLER; 
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APPENDIX  S  STATIC  SCHEDULER  GLOBALS 


—  file; 

files. a 

—  author: 

murat  kilic 

•*-  date: 

oct  89 

—  modified: 

dec  89  by  laura  j.  white 

with  VSTRIHGS; 
with  SEQUENCES; 
with  GRAPHS; 

package  FILES  ia 

package  VARSTRING  ia  new  VSTRIHGS {80} ; 
uae  VARSTRXNG; 

aubtype  OPERATOR_ID  is  VSTRIHG; 
aubtype  VALUE  i3"HATURAL; 
subtype  met  ia  VALUE; 
aubtype  MRT  is  VALUE; 
aubtype  MCP  ia  VALUE; 
aubtype  PERIOD  is  VALUE; 
aubtype  WITHIN  ia  VALUE; 
aubtype  STARTS  ia  VALUE; 
aubtype  STOPS  ia  VALUE; 
aubtype  LOWERS  ia  VALUE; 
subtype  UPPERS  ia  VALUE; 

ExceptionjOpecator  ;  OPERATOR_ID; 

TEST_VERiriED  :  BOOLEAN  TRUE; 


type  OPERATOR  ia 
record 


THEjOPERATOR_ID 

;  OPERATOR_lD; 

THEJ1ET 

:  MET  0; 

THE^IRT 

:  MRT  0; 

THB~MCP 

;  MOP  0; 

the^eriod 

:  PERIOD  0; 

THEJ<ITHIN 

;  WITHIN  :-  0; 

end  record; 

package  DIGRAPH  is 

new  GRAPHS (OPERATOR) 
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ia 

:  OPBRATOR__ID; 

;  STARTS  7-  0; 
;  STOPS  0; 

:  LOttCRS  :•>  0; 
;  UPPERS  0; 


package  SCHEDULC_ZHPUTS_LZST  ia  new  SEQUENCES  (SCKEODU^ZMPOTS) ; 

type  OP_ZHro  ia 
record 

NODE  :  OPERATOR; 

SUCCESSOAS  :  DZGRAPH.V_X.ZSTS.LZST; 

PREDZCESSORS  :  DZGRAPH.V~LZSTS.LZ3T; 
end  record; 

package  OP_ZNrO_LZST  ia  new  SEQUENCES (OP_ZNro) ; 
end  rZLES; 


type  SCHEDU1.E_ZNPUTS 
record 

THBJOPERATOR 

the“start 

the^stop 

THE^LONER 

the~upp®R 

end  record; 
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APPENDIX  T  STATIC  SCHEDULER  FILE  PROCESSOR 


—  file; 

£p_3.a 

~  authora: 

laura  marlowe 

murat  Jcilic 

—  date: 

nov  89 

with  FZliCS;  uae  riLES; 
p«ck«go  riLE^PROCESSOR  ia 

procedure  SEPARATE^DATA  (THEjGRAPH  :  in  out  DIGRAPH. GRAPH) ; 
procedure  VALIDATE JDATA  (THEjGRAPH  :  in  out  DIGRAPH. GRAPH) ; 


CRITjOP_LACKSJMET 

MET_HOT~LESS_THAM__PERIOD 

METJ<0T”LESSjrHAH3»Rt 

HCP~HOT”LESs]jrHAHJ4RT 

MCP^LESSjrHAHJiET” 

MET~IS_GREATERjrHAM_riNISHJ«ITHIH 

SPORADIC J)P_LACKSJMicp 

SPORADIC~OP~LACKS~MRT 

PERIOD  LESS~THAM  FIMISH  WITHIN 


exception; 

exception; 

exception; 

exception; 

exception; 

exception; 

exception; 

exception; 

exception; 


end  FILE  PROCESSOR 


APPENDIX  U  STATIC  SCHEDULER  FILE  PROCESSOR 


—  file; 

fp__b.a 

—  author: 

laura  marlowe 

— 

murat  kilic 

—  date: 

oct  89 

—  modified: 

dec  89  by  laura  j.  white 

with  TEXT_IO; 

with  rXLES;  uae  FXLES; 

package  body  rXLE__PROCESSOR  ia 

procedure  SEPARATE_pATA  (THE^GRAPH  :  in  out  DXGRAPM. GRAPH)  ia 

Thia  procedure  reada  the  output  file  which  haa  the  link 
information  with  the  Atomic  operatora  and  depending  upon 
— •  the  keyworda  that  are  declared  aa  conatanta  aeparatea  the 
information  in  the  file  and  atorea  it  in  the  graph  data 
— ■  atructure/  where  GRAPH  haa  the  operator  and  link  infonaation 
—  in  it. 


package  VALUE^IO  ia  new  XEXT__XO. XHTECER__IO (VALUE); 


MET 

conatant 

MRT 

conatant 

MCP 

conatant 

PERIOD 

conatant 

NXTHXH 

conatant 

LINK 

conatant 

ATOMXC 

conatant 

EMPTT 

conatant 

VARSTRXHG . VSTRXHG 
VARSTRXHG . VSTRXHG 
VARSTRXHG .VSTRXHG 
VARSTRXHG . VSTRXHG 
VARSTRXHG . VSTRXHG 
VARSTRXHG .VSTRXHG 
VARSTRXHG .VSTRXHG 
VARSTRXHG . VSTRXHG 


VARSTRXHG . VSTR ( 'HET" )  ; 
VARSTRXHG . VSTR ( "MRT" ) ; 
VARSTRXHG. VSTR ("HCP") ; 
VARSTRXHG. VSTR ("PERIOO") ; 
VARSTRXHG. VSTR ("HZTHXH") } 
VARSTRXHG. VSTR ("LIHK") ; 
VARSTRXHG. VSTR ("ATOMXC") } 
VARSTRXHG. VSTR ("EMPTT") ; 


Current_Value 
Newest ream 
NewJHord 
CUE_Opt 
Cur  Link 


VALUE; 

DIGRAPH . DATA_STREAH; 
VARSTRXHG .VSTRXHG; 
OPERATOR; 

DIGRAPH. LXNR  DATA; 


NOHJCRITS 

AGjOUTriLE 

INPUT 

OUTPUT 


TEXT_XO. riLE_TTPB; 

TEXT_IO. rXLE^TXPE; 

TEXT”l0.rXLBJ40DB  TEXT_XO.XH_rXLE; 

text” 10. file  mode  text  xo.out  file; 
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I’RIHT^^SDGKS 
Gl,  S2,  LX 
IDl,  XD2 
STARYJJ0D5 
SUO  KODE 

mm 


:  DIGRAPH. ENLISTS. LIST; 
;  DIGRAPH. v“l'I0TS. LIST; 

;  operator;" 

;  OPERATOR.* 

:  operator; 


pcoCQiduce  XHITIALXSEJ)PERATOR  (OP  :  in  out  OPERATOR)  is 

OP.THEJ-IET  :«  0; 

OP.THEJHRT  0; 

OP.THEJMCP  0; 

OP.THs[^PERIOD  ;«  0; 

OP,THe“hithxh  ;«  0; 
end; 


begin 

TEXT_XO,OPEN  (AOjOUTFILE#  IHPOT,  "/n/sun82/woe)c/c«ps/prototyp«s/«to(nic.in£o"}  ; 
TEXT^IO. CREATE (HO»_CRXTS|CUTPUT< "/n/auns2/work/cspa/pcototyp«a/non_crits’') ; 
VARSTRXMG.GET^LXNE"(AOjOUTriLE,  N*M__Ho«:d) ;  ~ 

while  nob  TEXT_XO.EMDjor_riLE(AGJ)UTriLE)  loop 

i£  VARSTRXNG. EQUAL  (New_Hord, LINK)  then 
START_HODE.THEjOPERATOR_lD  :«  EMPTY; 

EPD_NODE.THB_OPERATOR_XD  EMPTY; 

DIGRAPH. V^STRIMG.GET_LINE (AGjOUTflLE, Hcw^StrsMi)  ; 
Cuc^Lin)t.THE__OATA__STREAM  :■*  N«w__Stee»ja; 

VARSTRIMG . GET^LIHS (ACjOUTflLE,  M«wJ«otd) ; 

LI  THE_.GRAPH. VERTICES; 
while  DIGRAPH. VJLXSTS.HOH^KIPTY (LI)  loop 

if  VARSTRIMG. EQUAL(OIGRAPH.V^LISTS. VALUE (LI) .THEjOPERATOR^XD, Mew^Motd) 

then 

START__MODE  DIGRAPH. V__LISTS .VALUE  (LI)  ; 
exit; 
end  if; 

DIGRAPH. V__LISTS. NEXT  (LI)  ; 
end  loop; 

VALUB_IO.GET(ACjOUTriLE,  Current^Velue) ; 

TEXTjtO. SKIP_L1NE (AG_pUiriLE) ;  “ 

Cur^Link.THE_LINK_MET  ;»  Current__Vslue; 

VARSTRIMG. GET_LIHE  (AGjOUXriLE,  NewJHotd) ; 

LI  :»  THE_GRAPH. VERTICES;  " 

T;hile  DIG WPH.V^LISTS. NON-EMPTY  (LI)  loop 

if  VARSTRIMG. EQUAL (DIGRAPH. V^LISTS. VALUE (Ll) .THS_OPERATOR_ID,MewJMord) 

then 

EMD_NODE  DIGRAPH. V_LISTS. VALUE (Ll) ; 
exit; 
end  if; 

DIGRAPH. V_LISTS. NEXT (Ll) ; 
end  loop; 


—  when  eitl'.ec  starting  node  oc  ending  node  of  a  lin)c  is 


—  EXTERNAL,  the  link  information  will  not  b«  added  to  the 

—  graph.  Aaauming  that  all  external  data  coiaing  in  ia  ready 
— *  at  atart  time. 

if  VARSTRlNG.NOTEQUAL(START__HOOE.TME_pHRATOR_ID,«Mfrr)  and 

VARSTRXNG.NOTEQUAL(END_MODE.THE_0?BRATOR_XO,BMrTY)  then 
DIGRAPH . V_LISTS . ADD (START_HOOB,  Cut^Link .THI_riR3Tj0P_I0) } 

DIGRAPH . v”l1STS . ADD (EHDJIcbE,  Cur_Link .THe_StCO«oJoP_XD) ; 

DIGRAPH.  ADD  (Cur_Link,  THEjGRAPH) 
end  if; 

VARSTRIHG.GET_LIHE  (  AG_OUTriLE,  HewJ«ord) ; 

alaif  VARSTRING. EQUAL  (Newjtord, ATONIC)  then 
VARSTRIHG.GET_LINE  (  AGjDUTriLE,  Mewjlord) ; 

CurjGpt  .THE_jOPERATOR_Id”;-  HewJNord;'" 

VARSTRING. g'eT__LIHE  (AGjOUTriLE7  HewJNotd)  ; 
if  (VARSTRINgTeQUAL (Newjford,  ATONIC))  or 
(VARSTRING. EQUAL (NewJNord,  LINK))  nr 
(TPXT_IO.EHD__Or_riLBTAQjOUTriL*) )  then 
VARSTRING  .?UT__LINK  (N0HJ:RIT3,  CurJJpt . THBJ>PBRATOR_ID)  ; 

elae 

while  VARSTRING. NOTBQUAL  (NewJNord,  ATONIC)  and 
VARSTRING. NOTBQUAL  (Newjford,  LINK)  and 
not  TBXT__lO.BHDj0r_rXLBTAG_OUTriLB)  loop 

if  VARSTRING. EQUAL  (NewJford,MET)  then 

VALUE__IO . GET  (AGjOUrf ILB, Cutrent_Value)  ; 

TEXT_Jo.SKlP_LINB  (AGjOUrriLB)  ; 

CutjOpt.THE__MET  Cur£ent_Value; 

elaif  VARSTRING. EQUAL  (Newjford, NRT)  then 
VALUE^IO.GET (AGjOUTriLB,Current_Value) ; 
TEXTjFo.SKIP_LINE(AG__OUTriLE);  ~ 

CurjOpt .  THE_MRT ;  Current^Value; 

elaif  VARSTRING. EQUAL  (NewJNord,HCP)  then 
VALUE_IO . GET (AG_OUTriLE, Current_Value) ; 

TEXT_IO . SKIP_LINE (AGjOUTriLE) ;  ” 

Cut_Opt.THE_MCP  Current_Value; 

elaif  VARSTRING. EQUAL  (NewJNord, PERIOD)  then 
VALUE_IO.GET (AGjOUTriLE, Current J/alae) ; 

TEXT_1C . SKIP_LIHE (AOjOUTFILE) ;  " 

Cu£jOpt.THE_PERIOD  Current_Value; 

elaif  VARSTRING. EQUAL  (NewJford,NXTHIH)  then 
VALUE_IO.GET (AG_OUTriLE,Current_Value) ; 

TEXT_IO . SKIP_LINE (AG_pOTriLB) ;  ~ 

CurJ^t.THEJKITHIN  Current_Value; 
end  if; 
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VARSTRI».‘C.GET_LIIIE  (AGjOUTfXLE, 
tind  loop; 


¥ 


DIGRAPH. ADD (Cuc_ppt,  THE_GRAPH) ; 

XHITIALXSE_.OPERATOR(CucjOPt) ; 
ontl  li: 
end  1C; 
end  loop; 

end  SEPARATE  DATA; 


procedure  VALXDATE^DATA  (THEJJRAPM  ;  in  out  DIGRAPH. GRAPH)  la 

TARGET  :  DIGRAPH. V_LXSTS. LIST; 
pac)cage  VAL__I0  la  new  TEXT_IO, XMTEQSR_XO (VALUE)  ; 
begin 

TARGET  THE_GRAPH. VERTICES; 

while  DXGRAPh7v_LXSTS.N0N_EMPTT (TARGET)  loop 

—  ensure  that  there  la  no  operator  without  an  HEX. 
i£  DXGRAPH.V__LISTS.VALUE (TARGET) .THE_HET  -  0  then 

BxceptionjOperator  :•>  DIGRAPH. VJLXSTS. VALUE  (TARGET)  .THE__OPERATOR_ID; 
raise  CRIX_OP_LACKS^KET;  “  -  ~ 

end  1C; 

i£  DIGRAPH. V_LXSTS. VALUB(XARGET)  .THB_PERIOD  -  0  then 

—  Chec)c  to  ensure  that  MCP  has  a  value  Cor  aporadlo  operatora 
if  DIGRAPH.V^LXSTS.VALUE (TARGET)  .THE_MCP  -  0  then 

ExceptionjOperatoe  !-  D1GRAPH.V__LISTS.VALUE (TARGET) .THBJOPERATOR  XO; 
raise  SPORADICJJP^LACKSJMCP; 

Clsif  DIGRAPH.v“lISTS.VALUE (TARGET) .TKEJttT  > 

DIGRAPH.  V_LISTS.  VALUE  (TARGET)  .THEJCP  then 
ExceptionjOperator  :»  DIGRAPH. V^LISTsTvaLUE (TARGET) .THEjOPERATOR^ID; 
raise  MCP~LESSjrKAN_MET;  ”*  -  - 

end  if; 

—  Chec)r  to  ensure  that  MRT  has  a  value  for  sporadic  operatora 
if  DIGRAPH. V__LISTS. VALUE (TARGET) .THE_MRT  -  0  then 

ExceptionjOperator  DIGRAPH. V__LISTS. VALUE (TARGET) .THE_OPERATOR_ID; 

raise  SPORADIC_pPJLACKS_MRT;  "  “  “ 

end  if; 

-**  Check  to  ensure  that  the  MRT  is  greater  than  the  MET. 
if  D1GRAPH.V_LISTS.VALUB (TARGET) .THB_MET  > 

”  DIGRAPH . V_LISTS . VALUE (TARGET) . THE_MRT  then 

ExceptionjOperator  DIGRAPH. V_LISTs7vALUE (TARGET) .THEjOPERATORjlD; 

raise  MET~NOTjLESSJXHAN_MRT;  *"  -  - 

end  if; 


—  Guarantees  that  an  operator  can  fire  at  least  once 


-*•  be{oc«  a  response  expected. 

JLS  DIGRAPH.V_LISTS,VALUE (TARGET)  .THE_HCr  > 

DXGRAPK,V_LIS:»,„VXLOE (TARGET)  .TMEJ«T  then 
raise  MCP_NOT_EESSjrMAH_HRT;  ~ 

end  Lt; 

else 

—  Chech  to  ensure  that  the  PERXOO  la  greater  than  the  MET. 
if  DXGRAPM.V__LXSTS.VALUE (TARGET)  .TME_MET  > 

DXCRAPM.v“lISTS.VAI.UE (TARGET)  .TME_PERXOO  then 
Exception_Operator  DXGRAPK.V_bXSTS.VAtUE (TARGET) .TI1EJ3PERAT0R_XD; 
raise  MEt”mOT_I.ESS_THAM_PERXOO;“  ~ 

end  if; 

Chec)i  to  ensure  that  the  rXHXSH^NXTMXK  is  greater  than  the  MET. 
if  DIGRAPK.V^LISTS.VALUE (TARGET) .THE  JIXTMIM  /-  0  then 
if  D1GRAPh7v__LXSTS.VAI.UE (TARGET)  .TMEJIET  > 

”  DIGRAPH.V__l73TS.VAI.UE (TARGET)  .TME_»»XTMIM  then 

Bxception__Operator  DIGRAPH. V__LXSTS. VALUE  (TARGET)  .THE__OPERATOR__ID; 

raise  l«T~ISj;REATER__THAM__riMX3H__l»ITHIM; 
elsif  DIGRAPH. V__LISTS.VALUeTtARGEt7.THE__PERXOO  < 

DIGRAPH. v“lXSTS. VALUE (TARGET) .THEJ«XTHXM  then 
Exception_Opetator  DXGRAPH.V_LXST3TvalUE(‘,  .*AOET)  .THE_OPERATOR_ID; 
raise  PER10D__LESSjrHAM_rXHISH__WXTHIH;  ”  ~ 

end  if; 
end  if; 

end  if; 

DIGRAPH. V__LISTS.HEXT (TARGET)  ; 
end  loop; 

end  VALIDATE__DATA; 
end  FILE  PROCESSOR; 
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APPENDIX  V  STATIC  SCHEDULER  GRAPH  STRUCTURE 


—  Ciio; 

grsphs_,s.a 

—  author:. 

murat  kilic 

— 

isaac  mostov 

— 

tony  davis 

—  date: 

sop  89 

—  modified: 

oct  89  by  murat  kilic 

with  S£OUCi(CSS; 
with  VSTRXtJGS; 

generic 

typ*  V2VTEX  is  private; 
package  GRAPHS  is 

package  V^LISTS  is  new  SEQUENCES (VERTEX) ; 
use  v^iilSTS; 

package  V_STR1NG  is  new  VSTRIHGS(80) ; 
use  V^STRXNG; 

subtype  data_stream  is  vstring; 
subtype  MET  is  NATURAL; 

type  LINK_DATA  is 
record 

THE__DATA_STREAM  :  DATA_STREAM: 
THE”riRST_OP_ID  :  V^LISTS . LIST; 
the^LINkJ^et”  :  MET  :«  0; 
THe”sECOHDjOP_ID  ;  VJLISTS.LIST; 
end  record; 

package  E_LISTS  is  new  SEQUENCES {LINK_DATA) ; 
use  ENLISTS; 

type  GRAPH  is 
record 

VERTICES  :  V_LISTS.LIST; 

LINKS  ;  E_LISTS.LIST; 
end  record; 
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function  EQUAIi^GRAPHS  (Gl  :  in  GRAPH;  02  ;  in  GRAPH)  ratusn  BOOLSAN; 
pcoceduce  EMPTY (G  :  out  GRAPH) ; 

function  XS_NODE(X  :  in  VERTEX;  G  :  GRAPH)  ratucn  BOOLEAN; 

function  IS_LIHK(X  ;  in  VERTEX;  T  ;  in  VERTEX; 

G  :  in  GRAPH)  roturn  BOOLEAN; 

procedure  ADD (X  :  in  VERTEX;  G  :  in  out  GRAPH) ; 

procedure  AOD  (L  :  in  LZNK^^DATA;  G  :  in  out  GRAPH) ; 

procedure  REMOVE (X  :  in  VERTEX;  G  :  in  out  GRAPH) ; 

procedure  REMOVE (X  :  in  VERTEX;  T  :  in  VERTEX;  6  :  in  out  GRAPH) ; 

procedure  SCAN_NODES(G  ;  in  GRAPH;  S  ;  in  out  V_LISTS . LIST) ; 

procedure  SCAN_PAREKTS (X  :  in  VERTEX;  G  :  in  GRAPH; 

S  ;  in  out  V_LXSTS.LIST) ; 

procedure  SCAN_CHXLOREN (X  :  in  VERTEX;  G  :  in  GRAPH; 

S  :  in  out  V^LXSTS.LXST); 

procedure  DUPLXCATE (G1  :  in  GRAPH;  G2  :  in  out  GRAPH) ; 
procedure  T_S0RT(G  :  in  GRAPH;  S  :  in  out  V__LXSTS . LIST)  ; 


end  GRAPHS; 


APPENDIX  W  STATIC  SCHEDULER  GRAPH  STRUCTURE 


—  file: 

graph3_b,a 

—  author: 

murat  kilic 

— 

iaaac  moatov 

— 

tony  davia 

—  date: 

aep  89 

—  modified: 

oct  89  by  murat  kilic 

with  UMCHECKED__DEAIiLOCATIOH; 
package  body  GRAPHS  ia 

procedure  TREE  ia  new  UNCHECKED_DEALL0CATI0H(E__LISTS.H0DE,  E^MSTS.LIST) 

function  EQUAL_GRAPHS (G1  :  in  GRAPH;  G2  ;  in  GRAPH)  return  BOOLEAN  is 

function  SUB_SEt(61  :  in  GRAPH;  G2  :  in  GRAPH)  return  BOOLEAN  is 
LI  ;  V_LXSTS.LIST  Gl. VERTICES; 

L2  ;  ENLISTS. LIST  Gl. LINKS; 

begin 

if  not  SUBSEQUENCE (LI,  G2. VERTICES)  then 
return  EALSE; 
end  if; 

while  N0N_EMPTT(L2)  loop 

if  not  IS_LINK  (VALUE  (VALUE  {L2)  .THE_riRSTJ)P__ID), 

VALUE  (VALUE  (L2)  .THe”sECOND_OP__ID),  G2)  then 
return  FALSE;  ""  ^ 

end  if; 

NEXT(L2) ; 
end  loop; 
return  TRUE; 
end  SUB^SET; 
begin 

—  equal_graphs 

return  (SUB__SBT(G1,  G2)  and  SUB_SET(G2,  Gl) )  ; 
end  EQUAL_GRAPHS; 

procedure  EMPTT(G  :  out  GRAPH)  is 
begin 

EMPTY (G. VERTICES) ; 

EMPTY (G. LINKS) ; 
end  EMPTY; 
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function  IS_NODE(X  ;  in  VERTEX;  G  :  GRAPH)  ratucn  BOOLKAM  ia 
begin 

if  LOOK4(X,  G, VERTICES)  /-  null  then 
return  TRUE; 
else 

return  FALSE; 
end  if; 
end  IS_NODI,'; 

function  IS_LINK(X  :  in  VERTEX;  T  :  in  VERTEX;  G  :  in  GRAPH)  return  BOOLEAN  ie 
L  ;  ENLISTS. LIST  G. LINKS; 

begin 

while  L  /■•  null  loop 

if  VALUE (VALUE (L) .THE_riR3T_OP_ID)  -  X  end 

VALUE (VALUE (L) .THEJJECONDJOP_1D)  -  T  then 
return  TRUE; 
end  if; 

L  L.NEXT; 
end  loop; 
return  FALSE; 
end  IS_LINK; 

procedure  ADD(X  :  in  VERTEX;  G  :  in  out  GRAPH)  ia 
begin 

AOD(X,  G. VERTICES); 
end  ADO; 

procedure  AOD(L  :  in  LINK__DATA;  G  :  in  out  GRAPH)  ia 
begin 

if  LOOK4(L.THE_FIRST_OP_ID. ELEMENT,  G. VERTICES)  /-  null  end 
LOOK4(L.THE_SECOND_OP_ID. ELEMENT,  G. VERTICES)  /«  null  then 

AOD(L,  G. LINKS); 

end  if; 
end  ADD; 

procedure  REMOVE (X  :  in  VERTEX;  G  :  in  out  GRAPH)  ia 

s  :  v_lists.list; 

L  :  V_LISTS.LIST; 

PRZV  T  V_LISTS.LIST  null; 
begin 

SCAN_CHILDREN (X,  G,  S) ; 
while  NOH_F-MPTT  (S)  loop 
REMOVE (X,  VALUE (S),  G) ; 

NEXT (S) ; 
end  loop; 

SCAN_PARENTS (X,  G,  S) ; 
while  NOH_EMPTT(S)  loop 
REMOVE (VALUE (S) ,  X,  G) ; 
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HEXT(S)  ; 

«ncl  loop; 

REMOVE (X,  G . VERTICES) ; 
end  REMOVE; 

procedure  REMOVE (X  ;  in  VERTEX;  T  ;  in  VERTEX;  0  :  in  out  ORARH)  i« 
li  ;  E_IiXSTS.LlST  G. LINKS; 

PREV  7  E_LISTS.LIST  :»  null; 

TEMP  ;  e“l1STS.LIST  ;*•  null; 
begin 

while  NON-EMPTY (L)  loop 

if  VALUE (VALUE (L) .THE_riRST_OP_ID)  -  X  end 

VALUE (VALUE  (L) .THe”sEC0ND_0P_1D)  -  T  then 
TEMP  L;  “  "  “ 

NEXT (L) ; 

TREE (TEMP)  ; 
if  PREV  /«  null  then 
PREV.NEXT  :«  L; 
elae 

G. LINKS  L; 

end  if; 
elae 

PREV  L; 

NEXT (L) ; 
end  if; 
end  loop; 
end  REMOVE; 

procedure  SCAN_NODES(G  :  in  GRAPH;  S  :  in  out  V_LXSTS.LIST)  ia 
L  ;  V__L1STS . LIST  G. VERTICES;  “ 

begin 

^TT(S)  ; 

while  NON_EMPTT(L)  loop 
ADD (VALUE (L) ,  S) ; 

NEXT (L) ; 
end  loop; 
end  SCAN_NODES; 

procedure  SCAN_PARENTS (X  :  in  VERTEX;  6  :  in  GRAPH; 

S  :  in  out  V_LISTS.LIST)  is 
L  :  E_L1STS.L1ST  G. LINKS;  ~ 

begin 

EMPTY (S)  ; 

while  NON_EMPTV.  (L)  loop 

if  VALUE  (VALUE  (L)  .THE_SECOND_OP_ID)  -  X  then. 

ADD (VALUE (VALUE (L) .THE_riRST_OP_ID)  ,  S)  ; 
end  if; 

NEXT (L) ; 
end  loop; 
end  SCAN  PARENTS; 
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procedure  SCAN_CKZLDRt;N(X  :  in  VERTEX;  G  :  in  GRMH; 

S  ;  in  out  V^LISTa.IiXST)  i« 

li  :  E_LISTS.IiIST  G. LINKS; 

begin 

EMPTT (S) ; 

while  NON_EMPTT(L)  loop 

if  VALUE (VALUE (L) .TME_riRST_OR_ID)  -  X  then 
ADD  (VALUE  (VALUE  (L)  .THE_SECONDJ>r__lD)  ,  S)  ; 
end  if; 

NEXT (L) ; 
end  loop; 

end  SCANjCHILDREN; 

procedure  DUPLICATE (G1  :  in  GRAPH;  G2  :  in  out  GRAPH)  is 
begin 

DUPLICATE (Gl. VERTICES,  G2. VERTICES) ; 

DUPLICATE (Cl. LINKS,  G2. LINKS); 
end  DUPLICATE; 

procedure  T_SORT(G  ;  in  GRAPH;  S  :  in  out  V__LISTS.LX3T)  is 
G1  :  GRAPH;  “ 

T,  L,  P  ;  V__LISTS.LIST; 
begin 

EMPTY (T)  ; 

DUPLICATE (G,  Gl)  ; 

SCAN_NODES (Gl,  L) ; 
while  NON-EMPTY (L)  loop 

SCAN_PARENTS (VALUE (L) ,  Gl,  P) ; 
if  not  NON_EMPTY(P)  then 
ADD  (VALUE  (L)  ,  T) 

REMOVE (VALUE (L) ,  Gl) ; 

SCAH_HODES (Gl,  L)  ; 
else 

NEXT (L) ; 
end  if; 
end  loop; 

SCAN_NODES (Gl,  L)  ; 
if  NON__EMPTY  (L)  then 
EMPTY (S) ; 
else 

LIST_REVERSE (T,  S)  ; 
end  if; 
end  T_SORT; 
end  GRAPHS; 
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APPENDIX  X  STATIC  SCHEDULER  HARMONIC  BLOCK  BUILDER 


—  file; 

hbb_^a.a 

—  author: 

murat  kilic 

—  date; 

aep  89 

—  modified: 

oct  89  by  murat  kilic 

with  FILES;  uae  FILES; 

package  HARMONIC_BLOCK_BUXLDER  la 

procedure  CXLC_PERI0DIC_EQUIVALEHTS 

(OPt”l1ST  :  in  out  DIGRAPH. V^LISTS. LIST)  ; 

procedure  FIHO_flASE_BLOCK 

(PBECEDEHCE_^LIST  ;  in  DIGRAPH. VJLISTS. LIST; 

BASE^BLOCK*  ;  out  VALUE  ) ;” 

procedure  FIHD^BLOCK^LENGTH 

{PRECEDEHCE_LIST  :  in  DIGRAPH. VJLISTS. LIST; 
HARMON XC_BLOCK_LEMGTH  :  out  INTEGER  ); 

HO_BASE__DLOCK  :  exception; 

NOJOPERATOR_IH_LIST  :  exception; 

MET_NOT_LESS_THAN_PERIOD  :  exception; 

end  HARMONIC  BLOCK  BUILDER; 
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APPENDIX  Y  STATIC  SCHEDULER  HARMONIC  BLOCK  BUILDER 


—  file: 

hbb_b . a 

—  author: 

murat  )cilic 

—  date: 

sep  S9 

—  Rwdified: 

oct  09 

with  TEXT_IO; 

with  FILES;  use  FILES; 

package  body  HAMK>NXC_BLOCK_BUZLOER  is 


pcocedure  CALC_PBR100ZC_EQUXVALEMTS 

(OPt“lxST  ;  in  out  DXGRXFH.V_LXSTS.LXST)  is 

V  ;  DXGRXFM.V_LXSTS.LXST  OFT_LXST; 

procedure  VERZFT_1  (0  :  in  OFBRXTOR)  is 

—  Chec)c  to  ensure  that  KRT  has  a  value  for  sporadic  operators 
begin 

i£  O.THB_MET  >-  O.THE_FERXOO  then 

ExceptionjOperator  O.TME_OFERXTOR_XD; 
raise  MBt”hot_LESS_THXM_FErToD;  ” 
end  i£; 
end  VERIFY_1; 

procedure  CXLCULXTE_NEir_FERIOD  (O  :  in  out  OFERXTOR)  is 
DXFFERENCE  :  VXLUE; 

pac)cage  VXLUE_XO  is  new  TEXT_XO. XMTEGBR_IO (VXLUE)  ; 
begin 

DIFFERENCE  O.THE_MRT  -  O.THB_MET; 
if  DIFFERENCE  <  O.THE_MCF  then  "" 

O.THE_PERXOD  :•>  DXFFERENCE; 
else 

O.THE_PERIOD  O.THE_MCF; 
end  if; 

TEXT_l0.put("The  new  PERIOD  is  ->  ") ; 

VXLUE_XO.put (O.THE_PERXOD) ; 

TEXT_IO.NEH_LXNB;  ^ 
end  CXLCULXTE  NEK  PERIOD; 
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begin  —  nwiin  CALC_PERIODXC_EQUIVAtEHTS 
while  DIGRAPH, V_tXSTS.H0H^EMPT2C{VJ  loop 

1£  DIGRAPH.V^IiXSTS.VALUE(V)  .THE_PERXOD  «  0  then 
CALCUtATE_HEH_PERIOD  (V.ELEHEMT)  ,* 
end  i£; 

VERXrY__l  (DIGRAPH. V__LXSTS. VALUE  (V) )  ; 

DIGRAPH,V^HSTS.NEXT(V)  ; 
end  loop; 

end  CALC_PERX0D1C_EQUXVALEHTS; 

procedure  riND_BA3E__BLOCK  (PRECEDEHCB^LIST  :  in  DIGRAPH. V__LI5TS, LIST 
”*  "  BASB^BLOCK"  :  out  VALUE  )  la 

P^LXST  :  DIGRAPH. V_LXSTS .LIST  ;«  PRECEDBMCt_LIST; 

DIVISOR  ;  VALUE;  ” 

ALTERKATB^SEQUEMCE  ;  DIGRAPH. V^LISTS. LIST; 

BASE_DLOCK__SEQUEMCE  ;  DIGRAPH. v“l1STS. LIST; 
package  VALUEjTo  ia  new  TEXT^IO. INTEGER_IO (VALUE) ; 

function  riNO_MXNIMUM_PERIOD  (P_LIST  :  in  DIGRAPH. V_LISTS. LIST) 

”  ^  ~  return  VALUE  is 

V  j  DIGRAPH. V^LISTS. LIST  :«  P__LIST; 

MIN__PERIOD  ;  VALUE  0; 

begin 

if  DIGRAPH. V_,LISTS.HOM_EHPTT(V)  then 

MIH^PERIOd”:-  DIGRAPH. V_LISTS. VALUE (V) .THE_PERIOD; 

DIGRAPH. V_L1STS. HEXT (V) 7 

while  DIGRAPH. V_LISTS.HOH_EMPTT(V)  loop 

if  DIGRAPH.V_L1STS.VALUE(V) .THE^PERIOD  <  MXHJPERIOD  then 
MXN_PERIOd“;m  DIGRAPH. V_LISTs7vALUE(V) .THeTpRRIOD; 
end  if; 

DIGRAPH. V_LISTS.HEXT(V) ; 
end  loop; 

return  MlH__PERIOD; 
else 

raise  NO_OPERATOR_lN_LlST; 
end  if; 

end  riND_MlNIMUM_PERIOD; 

function  MODEJDIVIDE  (THE_PERXOD  *.  in  VALUE)  return  VALUE  is 
begin 

return  (THE_PERIOD  mod  DIVISOR); 
end  MODB__DIVIDE; 

procedure  INITIAL_PASS  (P_LIST  :  in  out  DIGRAPH. V_LISTS. LIST; 

DASE_BLOCK_SEQUENCE  ;  in  out  DIGRAPH. V_LISTS. LIST; 
ALTERNATE_SEQUENCE  ;  in  out  DIGRAPH. V^LISTS. LIST)  is 

ORIG_SEQUENCE  :  DIGRAPH. V_LISTS. LIST  P_LIST; 

OP  FROM  ORG  SEQ  ;  OPERATOR;  ~ 
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REMAXHDER  ;  VALUE; 

THE_PERIOD  ;  VALUE; 
begin 

while  DIGRAPH. V_LZSTS.NON_EHrTY(ORZGJIBQUSIICB)  loop 

THE_PERZOD  ;-’"dZGRAPM.v“lZSTS.VALUE (ORZG__SEQUEIICE)  .TH*_P«RZOO; 
REHAZHOER  :«  HOOEJJZVZOE  (THE_P*RZC») }  ^  " 

OP_rROM_ORG_SEQ  ;»  OZGRAPM. vJlZSTS, VALUE (ORZO_SEQUtt»CE)  ; 
if^REMAZMOER  -  0  then  “  “ 

DZGRAPR.V^LZSTS.AOD  (OP_rROMjORG__aEQ,  EASB_BLOCK_SEQVEI*CE) ; 
else 

DIGRAPH. V^LZSTS. ADD  (OP_rROHjORG_SEQ,  ALTERNATE  JIEQUENCE) ; 
end  if; 

DZGRAPH . V^LZSTS . HEXT (ORZG^SEQUEMCE) ; 
end  loop; 
end  ZHZTZAL^PASS; 

begin  —  mein  rZKD__BASE_BLOCK 

DZVZSOR  rZK0jHZHZMUH_PERZ00  (Pj:.ZST)  ; 

ZHZTZAL^PASS  (P_LZST,  BAjE_BLOCK_aEQOEI«CE,  ALTER»IATE__aEQUEHCE)  ; 
while  DZGRAPH . V_LZST3 , )»0»|”eHPTT  (ALTERHATE_aEQOEIICE)  “loop 
if  DZVZaOR  -  T  then  *" 
raise  HO_BAaE_BLOCK; 

—  exit  end  teneinete  the  atetic  acheduler 

else 

DZVZaOR  DZVZaOR  -  1; 

ALTERHATE_aEQUEMCE  null; 

BA3E_BLOCK_SEQUBKCE  null; 

ZMZTZAL_PAaS (P_LZ3T,  BAaE_BLOCR_3EQUBMCB,  ALTERMATE^SEQUENCE) ; 
end  if; 
end  loop; 

BA3E_BLOCK  !-  DZVZSOR; 
end  rZND_BASE_BLOCK; 

procedure  rZHD__BLOCK_LEMGTH 

(PRECEDEHCE_LZST  :  in  DZGRAPH. V_LZ3TS.LZ3T; 

HARMOHZC_BLbcK_LEHGTH  :  out  ZNTECER  J  is 

ORZG_SBQUENCE  :  DZGRAPH. V_LZSTS.LZST  PRECBDENCE_LZST; 

NUMBERl  :  VALUE;  “  “ 

NUHBER2  :  value; 

LCM  :  VALUE; 

GCD  :  VALUE; 

TARGET_NO  ;  VALUE; 

function  rZKD_GCD 

(NUPnERl  :  in  VALUE;  HUM8ER2  :  in  VALUE) 
return  VALUE  is  HEMjGCD  :  VALUE; 

begin 

while  GCD  /■  0  loop 

if  (NUMBERl  ntod  GCD  «  0)  end  (MUMBER2  mod  GCD  -  0)  then 
NEN  GCD  GCD; 
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c«cucn  IIKH_GC0{ 

eXae 

GCD  GCD  '=^  1; 

«nti  it; 
end  loop; 
end  riHO^GCD; 

function  FXHD_^LCM  (HUMBCRl,  NVMflER2  :  VALUE)  return  VALUE  is 
begin 

return  (NUH8EM  «  HUMBEr2)  /  GCO; 
end  riHD^LCM; 

begin  —  main  riND_8LOCK_LEHGTH 

if  DIGRAPH. VJL,ISTS.NOH“EHPTY<ORXC__SEQUEHCt)  then 

HUMBERl  :*«’"dXGRAPH.v“lISTS.VALUE(ORIG_SEQUBHCE)  .TME_PERX00; 
DXGRAPH,V_^LXSTS.NEXtToRXGj5EQUEMCE)  ;  *"  “ 

while  DIGRAPH. V__LXSTS.H0H~EHPTX(0RXG_SEQUEHCE)  loop 

MUHDER2  ; »«  DXGRAP  J! .  V^XSTS .  VALUE  (ORIG_SEQUEHCE)  .  TKE_P  ERXOO 
if  HUMBER2  >  NUM8eRl’'then  ~  ” 

GCD  :•*  NUMBERl; 

TARGET_NO  :•«  HUHBER2; 
elae 

GCD  :«•  HUMBER2; 

TAPGETj;0  HUMBERl; 
end  if; 

GCD  rXHO_GCD (GCD,  TARGET^HO) ; 

LCM  :«  rXHD^LCH (HUMBERl,  HUMBER2) ; 

HUMBERl  !*•  LCM; 

DIGRAPH. V^LXSTS.HEXT (ORXG^SEaUEHCS) ; 
end  loop; 

HARMOHXC_BLOCK_LEHGTH  :«  LCM; 
elae 

reiae  HO_pPERATOR_XH_LIST; 
end  if; 

end  rXHD_BLOCK_LEHGTH; 
end  HARMOHXC  BLOCK  BUILDER; 
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APPENDIX  Z  STATIC  SCHEDULER  ALGORITHMS 


—  file; 

achadulac_^a.a 

—  author: 

murat  )cllic 

—  data: 

dec  89 

—  aodifiad: 

dec  89  by  laura  j.  white 

with  rZLES;  uaa  TILES; 
pacKaga  OPERATOR^SCHEOULER  ia 


procadura  TESTJDATX 

“(IHPUT^LIST 

karhokTc^block^lemctm 

pKOCaduca  SCHCOULE_INZTZAL_StT 
(PRECE^DEMCE__LZST 
THE_SCHEOOLE^IHfUTS 
MARMOHIC_BLOCK_LEMGTH 
SXOPJCIM6  *” 

procadura  SCHEDULe_rVEST_pr_BLOCK 
(PRECEDENCE JLZST 
TNE_SCHEDULE_IHPUTS 

har5ohic_block_lehotm 

STOP  TIKE  ” 


:  in  DIGRAPH. V_LZSTS. LIST; 
;  in  INTEGER);*" 


:  in  DIGRAPH. V^LISTS. LIST; 

:  in  out  SCHEOOLE_1NPOTS_LI8T.L1ST; 
:  in  INTEGER;  " 

:  in  out  INTEGER); 


:  in  DIGRAPH. V_LISTS. LIST; 

:  in  out  SCHBDULS_ZNPUT8J<Z8T.LI8T; 
:  in  INTEGER;  ”*  “ 

:  in  INTEGER); 


in  DIGRAPH. GRAPH; 
in  out  SCHED0LE_1NPUTS_LIST.LI8T; 
in  INTEGER); 

procedure  SCHEDULEJHITH_EARLZESTJ>EAOLINE 

(THEJGRAPK  **  :  in  DIGRAPH. GRAPH; 

AGENDA  ;  in  out  SCHEDULE_1NPUTS_LI8T.LIST; 

HARMONIC_BLOCK_LENGTH  ;  in  INTEGER); 


procedure  SCHEDULE_NITH_EARLIEST_START 
(THE^GI'APH  ; 

AGENDA  : 

HARHONIC  BLOCK  LENGTH  : 


procedure  CREATE_STATIC_SCHEDULE 

(THEJGRAPK  :  in  DIGRAPH. GRAPH; 

THE~SCHEDULE_IHPUTS  ;  in  SCHEDULE_IHPUT3_LI8T.LIST; 

HARMONIC  BLOCK  LENGTH  :  in  INTEGER) 7  ~ 


MZSSED_DEADLINE  :  exception; 
OVERJTIME  ;  exception; 
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KXSSEd_0PBRAt:0R  ;  exception; 
end  OPEBATOR^SCHEDOLCR; 
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APPENDIX  AA  STATIC  SCHEDULER  ALGORITHMS 


—  fll«: 
author: 

—  data: 

—  modiflad: 


3Chadulac_J}.a 
Mueat  kilic 
nov  89 

dac  89  by  lauca  j.  whlta 


with  rZLE8;  uaa  FILES; 
with  TEXT^IO; 

packaga  b^y  OrERATOR__SCMEOULER  ia 

procaduta  TESTJDATA  (IMFUT^LIST  ;  in  DXCAAf M.V_HSTS.LXST; 

MARHOHXC^BLOCKJLBMOTM  :  in  XMTEOtR)  la 

procaduta  CALCjrOTAL^TXME  (XHfUTJtXST  :  in  DXCIUtfM.V_LX8TS.LXST; 

HAM«ONXC_BLOCK_LSMGTK  :  in  XMTBGCR)  la 
V  ;  DXGWtfM.V_LXST3.LI3T  :-  XMrUT~LX3T;~ 

TIMES  :  FLOAT  0.0;  “ 

orjrxME  :  FLOAT  0.0; 

TOTAL_TXMB  :  FLOAT  0.0; 

FER  “  ;  OtERATOR; 

BAO_TOTAL_TXHE  :  axcaption; 

function  CALC_MO_OF_FERXOOS  (KARMONXC_BLOCK_LBI(OTM  :  in  XMTBOSR; 

~  "  THS_rBRXOO  :  in  XMTBOSR)  ratuxn  FLOAT  ia 

bagin 

raturn  FLOAT (HARHONXC_BLOCK_LEHOTH)  /  FLOAT (TME_rBRXOO) ; 
and  CALC_KO_OF_PERXOOS;’'  ”  “ 

function  MULTXPLV_BT_MET  (TIMES  :  in  FLOAT; 

“  THE_MET  ;  in  VALUE)  raturn  FLOAT  ia 

bagin 

raturn  TIMES  •  FLOAT (THE_MET) ; 
and  MULTXPLT_BT_MET;  *" 

function  ADD_TO_SUM  {OP_TIME  :  in  FLOAT)  raturn  FLOAT  ia 
bagin 

raturn  TOTAL_TlME  +  OPJCIME; 
and  ADD  TO  SUmT  ” 


bagin  --main  CALC_TOTAL_TIMB 

whila  DIGRAPH. V~LXSTS.MOH_EMPTT(V)  loop 
PER  DXGRAPhTv  LZSTS.VALUE(V) ; 
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TIMES:**  CALC_NOJ)r_.PERIODS  ( HARMON IC_BLOCK_I.EMGTM  ,  PSR.THB^rERIOO) ; 
OP^TIHE  ;«  MULtIpLT_BTJ«T  (TItlES,  DIGRAPmTv_LISTS. VALUE (V) TtHEJKET)  ; 
TOTAI._TXMB  ADD^TO^SUM  (OPJTIME)  ; 

Li  TOTALjriME  >  rLbAT(KARMONTc^BLOCK_LENOTH)  fch«n 
Siiiae  SAOjrOTALjrXME; 
else 

DIGRAPH. V_^MSTS. NEXT (V)  ; 
end  Li; 
end  loop; 
exception 

when  BAOJCOTALJflME  -> 

TESTJ/ERirXEO  :»  »A1>SE; 

TEXT^IO.PUX("The  total  execution  time  of  the  operators  exceeds"); 
TEXT~XO.PUT_IiIHE("  the  KARMONXC_BLOCK__LEHGTH") ; 

TEXT^O.NEM^XiINE;  “ 

end  CALC^TOTArrXME;’" 

procedure  CALC^HALr^PERXODS  (XHPUT_LIST  :  in  DIGRAPH. V^LXSTS. LIST)  is 

V  :  DIGRAPH. V_^LXSTS. LIST  :»  1NPUT_LIST; 

HALr_PERIOD  ;"*rLOAT; 
rAIL”HALr_PERIOD  :  exception; 

function  DIVIDE__PERIOD_BT_2  (THE__PER10D  :  in  VALUE)  return  FLOAT  is 
begin 

return  FLOAT (THE^PERIOD)  /  2.0; 
end  DIVIDE_PERIOD_BT_2; 

begin  --main  CALC_HALr_PERlODS; 

while  DIGRAPH. v”liSTS.NON_EMPTT(V)  loop 

HALF_PERIOD  DIVIDE_PER10D_BT__2  (DIGRAPH. V__LISTS. VALUE  (V)  .THE__PERIOO) 

if  FLOAT (DIGRAPH. V^LISTS. VALUE (V) .THE_MET)  >  HALF_PERIOD  then  "" 
ExceptionjOperator  :«  DIGRAPH.V_LISTS.VALUB(V) .THE_OPERATOR_ID; 
raise  FAIL_HALr__PERIOD;  ""  “ 

else 

DIGRAPH. V__LISTS. NEXT (V)  ; 
end  if; 
end  loop; 
exception 

when  FAIL__HALF_PERIOD  -> 

TEST^VERIFIED  FALSE; 

TEXt”iO.PUT  ("The  MET  of  Operator  "); 

VARSTRING.PUT  (ExceptionjOperator) ; 

TEXT_IO.PUT_LIH8  {"  is  greater  than  half  of  its  period."); 
end  CALC_HALr~PERIODS; 

procedure  CALC_RATIO__SUM  (INPUT_LIST  :  in  DIGRAPH. V_LISTS. LIST)  is 

V  :  DIGRAPH. V_LISTS. LIST  INEUT_LIST;  " 

RATIO  :  FLOAT; 

RATIOjSUM  :  FLOAT  0.0; 

THE  MET  :  VALUE; 
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THE^PERXOD  :  VALUE; 

RATIO_TOO_BXG  ;  exception; 

function  DIVIDE_MET_By_PERIOD  (TME_MET  ;  in  VALUE; 

TMe”perioo  ;  in  VALUE)  return  FLOAT  ia 

begin 

return  FLOAT (THE_MET)  /  FLOAT (IHE_PERXOO) ; 
end  DXVXDE_MET_BT_PERXOD;  ~ 

function  ADD^TOJTXME  (RATXO  :  in  FLOAT)  return  FLOAT  ia 
begin 

return  RATXO_SUM  +  RATXO; 
end  ADDJfOJCIME; 

begin  --main  CALC_RATXO__SUM 

while  DXGRAPH.v“lISTs7mOH_EHPTT(V)  loop 

THE_MET  DIGRAfH.V__LISTS.VALUE(V)  .THE_HET; 

THE^PERXOD  DXGRAPh7v_LXSTS.VALUF,(V)  .THE__FERXOO; 

RATIO  dxvxde_met__btJ?eriod(tme_met,theJ?erxoo); 

RATXO__SUM  ADDjrOjrXME  (RATIO)  ;  ” 

DIGRAPH . V_LXSTS . MEXT (V) ; 
end  loop; 

if  RATXO__SUM  >0.5  then 
raiae  RATIOJCOO_BXG; 
end  if; 
exception 

when  RAT10_T00_BIG  -> 

TEST_yERXrXED  FALSE; 

TEXT^XO.PUT  ("The  total  MET/PERXOO  ratio  atm  of  operatora  ia*) ; 
TEXt”xo.PUT_LXHE  ("  greater  than  0.5"); 
end  CALC_RATXO_SUM; 

begin  — main  TEST__DATA 

CALC_TOTAL_TXMe7xHPUT_LXST,  KARMONXC_BLOCK_LBMOTli) ; 
calc^halfjFeriods  (XHPUT^LIST)  ; 
calc”ratxo_sum(input_lxst) ; 

end  TEST  DATA;  *” 


procedure  VERXFTjrXME^LEFT  (HARHOKIC_BLOCK_LENGTH  :  in  XHTEOER; 

STOP_TXMB  :  in^XHTEGER)  ia 

begin 

if  STOPjrXME  >  HARMONXC_RLOCK_LENGTH  then 
raiae’'0VER_TXME;  ” 

— exit  and  terminate  the  Static  Scheduler 
end  if; 

end  VERIFY  TIME  LEFT; 


procedure  CREATE_INTERVAL 

LOHER  BOUND  :  VALUE; 


(THEjOPERATOR 
INPUT 
OLD  LOMER 


in  OPERATOR; 

in  out  SCHBDULE_XNPOTS; 

in  VALUE)  ia  ~ 
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Cuncbion  CAI.C_LOHER_DOUHO  c«tucn  VALUE  ia 
begin 

—  ainco  CREATK_XHTERVAL  function  ia  ua«d  in  both  3CHEDULE__IMXTIAIi_aET 

—  and  SC»EDUL!rREST_Or_BLOCK  (OLD_LOHER  /«  0)  chack  ia  naadad.  In’" 

—  case  of  the  operator  ia  achedulad  fjomawhara  in  ita  intarvai  and 

—  (OliD^LOHER  /-  0), 

—  thia  check  guarantees  that  the  perioda  will  ba  conaiatant. 
if  (OLD^^LOHER  /-  0)  and  (OLD^LOHER  <  INPUT. THB^STARt)  then 

LOHER^BOUND  OLD_LOHER  +”tHE_PPERATOR.THeJpeRIOD; 
else 

LOHER^BOUND  S-  XMPUX.THE_START  +  TKB_pPERAIOR.THE_PERIOD; 
end  if; 

return  LOHER_BOUND; 
end  CALC_L0HEr”b0UND; 

function  CALC_UPPER_B0UND  return  VALUE  ia 
begin 

if  THE_pPERATOR.THE__HXTHIN  «  0  then 

return  LOHER_BOUHD  +  THE_pPERATOR.THE__PERXOD  -  THEjOPERATOR.THE_MET; 

—  if  the  operator  has  a  HITHIN  conatraint^  the  upper  bound  of  the 
"  interval  ia  reduced. 

elae 

return  LOHER__BOUND  +  THEJDPERATOR.THEJIITHIM  -  THE_pPERATOR.THE__MET; 
end  if; 

end  CALC_,UPPER_BOUND; 
begin  —main  CREATE_INTERVAL 

INPUT. THE^LOHER  CALC_,LONBR_BOUND; 

INPUT. THE~UPPBR  CALc“uPPBRIbOUND; 
end  CREATE  INTERVAL;  “  ” 


procedure  SCHEDULE_INITIAL_SET 

(PRECEDENCb”lIST  :  in  DIGRAPH. V_LISTS. LIST; 

THE_SCHEDULE_INPUXS  :  in  out  SCHEDULE_XNPUTS_LIST.LXST; 

HARMOH1C_BLOCK_LEHGTH  :  in  INTEGER;  ” 

STOPjriME  ""  ;  in  out  INTEGER)  ia 

V  ;  DIGRAPH. V_LISTS. LIST  PRECEDENCEJLIST; 

START_TIME  ;  INTEGER  0;  ” 

NEW_INPUT  :  SCHEDULE__INPUTS; 

OLDJLOWER  ;  VALUE  :-0; 

begin  — SCHEDULE_INITIAL_SET 

while  DIGRAPH. V_L1STs7nOH_EMPTT(V)  loop 

ExcepLionjOperator  DIGRAPH. V__LISTS. VALUE (V) .THE_OPERATOR_lD; 

NEW_INPUT . THEjOPERATOR  : "  DIGRAPH . V_LISTS . VALUE (V) TtHE_OPERATOR_ID; 
HEW_INPUT.THB~SXART  START_TIMB; 

STOPjriME  START_TIME  +  DIGRAPH. V__LISTS. VALUE(V) .THE_MET; 
VERIFY_TIME_LErT(HARMONIC_BLOCK_LENGTH,  STOP_TIME) ; 

NEW_INPUT.THE__STOP  STOPJTIME;  ” 

START  TIME  ;“'’sTOP  TIME; 
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—  for  every  operator  in  SCHEDliLE__IHITIAti__SET,  OU)_LO»fER  la  xaco. 
—  So  we  aiwaya  send  xero  value  to  CREATE_IN7ERVAL. 
CREATE_lNTERVAL(DIGRAPH.V_IiISTS. VALUE (V)  ^’"MEII^IMf UT,  OU)__lO»f*R)  ; 
SCHEDULE_1NPUTS_LIST.ADD  TnEH_1NPUT,  TME__SCHEDULE_IMf UTsT; 
digraph.v_lists7next(v) ; 

end  loop; 

end  SCHEDULE  INITIAL  SET; 


procedure  SCHEDULE__REST_Or_BLOCK 

(PRECEDENCe“lIST : in  DIGRAPH . V_LISTS . LIST; 
THE_SCHEDULE_INPUTS  :  in  out  SCHEDULE_1HPUTS__LIST.LX8T; 
HARMOMIC_BLOCK_LEHGTH  :  in  INTEGER;  ” 

STOP_TIME  “  ;  in  INTEGER)  ia 

V  :  DIGRAPH. V_LISTS. LIST  PRECEDENCE^LIST; 

TEMP  :  SCHEDULE_INPUTS_LIST.LIST  THE_SCMEDULE_IHPUTS; 

V_LIST  ;  DIGRAPH. V_LISTS. LIST;  ”  ~ 

p”;  SCHEDULE_IHPUTS~LIST.LIST; 

S  :  SCHEDULE~IHPUTS_LIST.LI3T; 

STARTjriME  t^INTEGER  :«  0; 

TIME_STOP  ;  INTEGER  ;«  STOPJCIME; 

NEKJCNPUT  :  SCHEDULE_INPUTs7 
OLD  LONER  :  VALUE; 


begin 

DIGRAPH. V__LISTS. DUPLICATE (PRECEDENCE_LIST,  V_LISX) ; 
SCHEDULB__INPUTS_LIST.L1ST_REVERSB(THE_SCHEDULE_IHPUTS,  P) ; 


loop 

while  SCHEDULE_lNPUTS_LIST.NOH_EMPTr(P)  loop 

if  SCHEDULBJCNPUTS_LIST.VALUE(P) .THE__LONER  <  HARMOHIC_BLOCK_LBMOTK  then 
NEN_lNPUT.THE_OPERATOR  DIGRAPH.V_LISTS .VALUeTv) .IME_OPERAtOR_ID; 

—  choc)c  if  the  operator  can  be  scheduled  in  ita  interval 
if  SCHEDULE_INPUTS_LIST.VALUB(P) .THE_UPPER  -  TIMB_STOP 

>-  DIGRAPH.V_LISTS.VALUE(V)  .THEjar  then 
if  SCHEDULE_1NPUTS_LIST.VALUE(P)  .THE__LONER  >-  TIME__STOP  then 
START_TIME  SCHEDULE__INPUTS_L1StTvALUE <P) .TJB_LONBR; 

else 

STARTjriME  TIME_STOP; 

end  if; 

NEH_INPUT.THE_START  START  JTIME; 

NEn7iHPUT.THE_STOP  STARTjriME  +  DIGRAPH. V_LI3TS. VALUE (V) .THE  JNET; 
TIME_STOP  NEN_IHPUT.THE_STOf7  ” 

OLD_LONBR  SCHEDULE__INPUTS_LIST. VALUE (P) .THE_LONER; 

CREATE_INTERVAL (DIGRAPH . V_LISTS .VALUE (V) ,  NEN_INPUT,  OLD_LONER) ; 
SCHEDULE_INPUTS_LIST.ADD(NEH_IHPUT,  TEMP);  ”  ” 

schedule7inputs_list.add{nen7input,  S) ; 

ExceptionjOperator  DIGRAPH. V_LISTS. VALUE (V) .THE  jOPBRATOR_ID; 

VERirTjriME_LErT(HARMONIC_BLOCK_LENGTH,  TIME_STOP) ; 
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DIGRAPH .  V_^IiISTS .  HEXT  (Vj  ; 

SCHEDULE__IMPUTS_,LIST.NEXT{P) ; 

—  i£  bhe  opeeatoc  can  nob  be  acheduled  in  its  interval  raiae  the 

—  exception 
else 

Bxception_Operatot  ;«  DIGRAPH.V__XiISTS.VALUE(V)  .THEjOPERATOR_ID; 

raise  MisSED_DEADLINE; 
end  i£; 

else 

DlGRAP«J.V__LISTS.REhK>VE (DIGRAPH. V_,liISTS. VALUE (V) ,  VJ.IST)  ; 

DIGRAPH . V~LISTS . NEXT (V) ; 

SCHEDULS__1HPUTS^LIST.NEXT(P)  ; 
end  i£; 
end  loop; 

i£  SCHEDULE__1NPUTS_LIST.N0N_EMPTT(S)  then 
SCHEDULE_jNPUTS_riST.LIST_REVERSE(S.  P) ; 

SCHEDULe“iHPUTS~LIST . EMPTT (S) ; 

V  ;»  V_L1ST; 
else 
exit; 
end  if; 
end  loop; 

SCHEDULE_INPUTS_LIST.LIST_REVERSE(TEMP,  THE_SCHEDULE_IHPUTS) ; 
end  SCHEDULE_RESTjOr_BLOCK; 


procedure  BUILD_pP_lNrO_LlST 

{THe”grAPH  :  in  DIGRAPH. GRAPH; 

THE“0P__INr0_LlST  :  in  out  OP_INrO_LIST.LIST)  i» 

—  this  procedure  finds  each  operator's  successors  and  predecessors 

—  first  and  creates  the  OPERATOR_IHro_LIST. 

V  ;  DIGRAPH. V_LISTS. LIST  t-  THE__GWPH. VERTICES; 
s  ;  DIGRAPH. v”lists. list;  ” 

P  :  DIGRAPH. V~LISTS. LIST; 

NEH_NODE  :  Op”lNrO; 

begin 

while  DIGRAPH. V__L1STS. NON-EMPTY (V)  loop 

DIGRAPH . SCANjCHILDREN (DIGRAPH. V_LISTS .VALUE (V) ,  THE__GRAPH,  S) ; 
DIGRAPH. SCAH_PARENTS (DIGRAPH. V_LISTS. VALUE (V) ,  THeJgRAPH,  P) ; 
NEW_NODE.NODB  DIGRAPH. V_LISTS. VALUE (V) ; 

NEw”nODE . SUCCESSORS  S; 

NEW_NODB.PREDICESSORS  P; 

OPJCNrO_LIST.ADD(NEH_NODE,  THB_OP_INrO_LIST) ; 

DIGRAPH .V_LISTS .NBXtTv) ; 
end  loop; 

end  BUILD  OP  INFO  LIST; 


procedure  PROCESS_EST_END_NODE 

""(MAY__Be|[|avAILABLE:  in  out  SCHEDULE_1NPUTS_LIST.LIST; 
OPT  :  in  OPERATOR)  is 
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tcansfer  Che  OPERATOR  cecord  into  SCHEDULE^XHFO  record  end  adds 
Chet  into  the  MAy_^AVAZUk8LE_liXST  for  the  EarlleeC  Start  ScheduXin9 
—  Algocittw.  Initially  all  the  values  are  xero. 

NEM__HODE  ;  SCHEDULE_XHPUTS; 

begin 

NEHJRODE.THEJOPERATOR  ;<»  OPT.THEJDPERATOR_XD; 
SCHEDULE_1MPUTS^LIST.AOD(NEM__HODB,  MA¥_BE~AVAXLABU)  ; 
end  PROCESS  EST  END  NODE;  "*  “ 


procedure  PROCESS_EDIi_ENDJHODE 

’"(MAY_BE~AVA1I.ABLE:  in  out  SCHEDULE^XMPOTS^liXST. LIST; 
opt”  ”  :  in  OPERATOR)  is” 

^-transfer  the  OPERATOR  record  into  SCHEDULE__XNro  record  and  adds  that 
—into  the  MAY_AVAXLABLE_1XST  for  the  Earliest  Deadline  Scheduling 
—  Algorithm.  Initially  all  the  values  are  xero. 

HEN^HODE  ;  SCHEDU1.E__INPUTS; 

begin 

MEH^NODE.THEjOPERATOR  OPT.THEjOPERATOR^XD; 

NEN_NOOE.THE__LOHER  :»  0;  we  can  oedt  this/  because  it's  already  xero. 
if  OPT.THEJKXTMIM  /-  0  then 

NEH_HODeTtHE__UPPER  OPT.THEJKITHIM; 
else 

HEN_HODE.THE_UPPER  OPX.THE^PERIOD; 
end  if; 

SCHEDULE_XHPUTS__liIST.ADD  (NBNJIODE^  MAT^BE^AVAILABLE)  ; 
end  PROCESS  EDL  END  NODE;  ” 


function  rXND_OPERATOR(THEJDP_XNrO_LIST  ;  in  OP_XNrO__tXST.I#XST; 

”  ID  ”  ”  :  in  OPERATOR_XD) 

return  OP_INrO_bXST.]:.IST  is  ” 

—  finds  the  operator  that  we  use  currently  to  get  the  required  information. 
TEMP  ;  OP_INrO_LIST.LIST  THE_OP_XHrO_LXST; 

—  assumed  that  it's  guaranteed  to  find  an  operator, 
begin 

while  OP_lNrO_LIST.NON_EMPTy(TEMP)  loop 

if  VARSTRING.EQUAL(OP_INrO_I.IST.VALUE(IEMP) .NODE.THE_pPERATOR_XD,  ID)  then 
return  TEMP  ;  ”  ” 

end  if; 

OP_INrO__LIST .  NEXT  (TEMP)  ; 
end  loop; 

end  FIND  OPERATOR; 


function  CHECK^i.  JENDA  (THE_NODB  :  in  OP_INFO; 

"*  AGENDA  ;  in  SCHEDUIiE_INPUTS_LIST .  LIST) 

return  BOOLEAN  is 

"  checks  the  AGENDA  list  bo  see  if  all  the  predecessors  of  the 
—  operator  are  in  there. 

P  :  DIGRAPH. V  LISTS. LXST  THE  NODE.PREDICESSORS; 
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A  ;  SCIIEDULE_IHPUTS_HST,LIST  AGEHDA; 

OK  ;  DOOLEAH  T«  FAtSE; 
beQin 

while  DIGRAPH. V_LXSTS.MOM_EMPT5f(P)  loop 

while  SCHEDULB_1HPUTS_LXST.N0H_EMPT:I(X)  loop 

if  VARST.HIMcTEQUAli (DIGRAPH. v“lISTS. value (P)  .IHE_OPERAIOR_ID, 

SCHEDULEjTnPUTS^LIST. VALUE (aT.THE  OPERATOR)  then 
OK  :«  TRUE;  “ 

exit; 
end  if; 

SCHEDULE_,IHPUTS__LIST.HEXT  (A)  ; 
end  loop; 
if  OK  then 

DIGRAPH . V_LISTS . NEXT (P) ; 

A  AGENDA; 

OK  :«  FALSE; 
elae 


—  if  the  pointer  reached  to  the  end  of  the  AGENDA,  it  msana  the 

—  operator  ia  not  in  AGENDA,  if  ao  return  FALSE, 
return  OK; 

end  if; 
end  loop; 

****  if  the  pointer  reached  to  the  end  of  the  predeceaaor  liat,  it 
•—  meana  the  operator  ia  in  AGENDA. 

OK  TRUE; 
return  OK; 


end  CHECK  AGENDA; 


procedure  EST_1NSERT 


(TARGET  :  in  SCHEDULE_^INPUTS; 

MAT__BE__AVA1  LADLE  ;  in  out  SCHEDULB__IN?UTS_LIST. LIST)  ia 

—  uaed  to  inaert  the  operatora  into  the  MAT_BE_AVAILABLE  liat  to 

—  achedule  for  the  Earlieat  Start  Scheduling  Algorithm. 


PREV  ;  SCHEDULB__INPUTS_LIST.LISX  :»  null; 

T  :  SCHEDULE~1NPUTs”lIST.LIST  MAT_BE_AVAILABLE; 


begin 

if  NOT(SCHEDULE__INPUTS_LISX.NOH_EMPTT(T))  then 

““  when  MAT_BE_AVAILABLE  liat  ia  empty,  add  the  operator  immediately. 
SCHEDULE_INPUTS_LIST. ADD (TARGET,  MAT_BE_AVA1LABLE) ; 
elae 


—  in  caac  the  target  operator' a  EST  ia  amaller  than  the  firat  operator' a 

—  ESX  add  the  operator  to  the  liat  immediately. 

if  TARGET. THE_LOHBR  <  SCHEDULB_INPUTS_LISX. VALUE (T) .THE  LOWER  then 
SCHEDULE_IHPUTS_L1ST. ADD (TARGET,  MAT_BE_AVAILABLE) ;  "" 

—  in  caae  the  operator  with  the  aame  EST  ia  in  the  liat,  do  not  inaert, 

—  otherwiae;  inaert  thr  operator  in  ita  order. 

elaif  NOT (SCHEDULE_1NPUTS_LIST. MEMBER (TARGET,  MAY__BE_AVAILABLE) )  then 
while  SCHEDULE_INPUTS__L1ST.N0H_EMPTY(T)  loop  ~ 
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if  TARGET. THC^LOHER  >  SCHEDULE_lHPUTS_JiIST.VALUE (I) .TME^LOWER  tK*n 
PREV  T;  ~  ^  ~  “ 

SCHE0ULE_1MPUTS_LIST.NEXT(T) ; 
elae 
exit; 

«nd  if; 
end  loop; 

SCHEDOLE__IHPUTS_LIST.  ADD  (TARGET,  T)  ; 
if  SCHEDUtE_lNPUTS_LIST.NOH_EMfTT(PREV)  then 
PREV. next"* :»  T;  ^  ” 

elae 

MAT_BE__AVAILABI,E  T; 
end  if; 
end  if; 
end  if; 

end  EST  INSERT; 


procedure  CDLi_XNSERT 

(TARGET  :  in  SCMEDULE^IHPUTS; 

MAT_BE_AVAlLABtE  ;  in  out  SCHEDULB__lMPUTS_LISt.hI8T)  i« 

—  uaed  to  inaert  the  operatora  into  the  MAT__BE__AVAZUUILE  liat  to 

—  achedule  for  the  Earlieict  Deadline  Scheduling  Algorithai. 

PREV  ;  SCHEDUI.E_IHPUTS__IilST.I.IST  ;«  null; 

T  ;  SCHEDULE^IHPUTslLIST.tlST  MAY_BE_AVAILABtE; 

begin 

if  HOT(SCHEDUI.B_INPUTS_IiIST.HOH_EMPTT(T))  then 

SCHEDUDE_XNPUTS__liIST7ADD  (TARGET,  MAY^BEJIVAXUUSLE)  ; 
elae 

if  TARGET. THE_UPPER  <  SCHEDULE_XHPUTS__LIST. VALUE (T) .THEJJPPER  then 
SCHEDULE_XNPUTS_LXST. ADD (TARGET,  MAY_BE_AVAZLABLE) ;  ”* 

elaif  NOT (SCHEDULE_XNPUTS_LZST. MEMBER (TARGET,  MAY_BE_AVAXLABLS) )  then 
while  SCHEDULE_INPUTS_LXST.NON__EMPTT(T)  loop  "" 

if  TARGET, THE__UPPEr“>  SCHEDULE_XHPUTS_LIST. VALUE (T) .THE  JJPPER  then 
PREV  T;  ^  “ 

SCHEDULE_XNPUTS__LXST.NEXT(T) ; 
elae 
exit; 
end  if; 
end  loop; 

SCHEDULE_XNPUT3__LXST. ADD  (TARGET,  T)  ; 
if  SCHEDULE_XNPUTS_LIST.NON__EMPTT(PREV)  then 
PREV. NEXT  T;  "" 

elae 

MAY_BB_AVAXLABLB  T; 
end  if; 
end  if; 
end  if; 

end  EDL  INSERT; 
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iunetion  OPERATOR_IH_tXST (OPT_ID  ;  in  OPERATOR^ID; 

XmJuIST  ;  in  SCHEDULE_INPUTa__LX3T.EIST) 
JTctucn  BOOLEAN  la 

—  thia  la  uaed  to  check  i£  the  opecatocs  in  aucceaaora  liat  ace 
~  aXceady  in  the  complete  HAY__BE_AVAXLABLE  liat  £oc  both  EST  and 
--  EDL  algocittima. 

TEMP  ;  OPERATOR^XD; 

L  ;  SCIIEDULe“iNPUTS_HST.LIST  :«  IN__LXST; 
begin 

while  SCHEDULE_INPUTS_LXSX,NON_EMPTT{L)  loop 

TEMP  :«  SCHEDULS_IN?gTS_LISTTvALUE(L) .THE_ OPERATOR; 
if  VARSTRXNG. EQUAL (TEMP,  OPT_XD)  then 
return  TRUE; 
elae 

SCHEDULE_XNPUTS__LXST.HEXT(L)  ; 
end  if; 
end  loop; 
return  FALSE; 
end  OPERATOR  IN  LIST; 


procedure  EST_INSERT__SUCCESSORSjOrjOPT 

'"(THEJUODE  In  OP__lNrO; 

STOPjriME  J  in  VALUE; 

MAT_IeJ^VAXLABLE  :  in  out  SCHEDULE_XNPUTS_LX3T.LIST)  is 
—  inaerta  the  aucceaaora  of  the  aelectcd  operator  into 
—  MAT__BE__AVAXLABLE  liat  in  their  ordera  if  they  do  not 
—  exiat  in  the  liat. 

S  ;  DIGRAPH. V__LISTS. LIST  THB_NODE. SUCCESSORS; 

T  ;  OPERATOR;”" 

OPT  :  OPERATOR  :«  THE_NODE.NODE; 

TARGET  ;  SCHEDULE_lNPUTs7 

begin 

while  DIGRAPH. V_LISTS.NON__EMPTT{0)  loop 
T  DIGRAPH. V_LISTS. VALUE (S)  ; 

if  N0T(0PERAT0iR,lN__LIST(T.THE_pPERAT0R_ID,  MAY_BB__AVAILABLEJ )  then 
TARGET. THEjOPERATOR  DIGRAPH. V_LISTS.VALUbTs)TtHB_OPERATOR_1D; 

TARGET. THE^LOHER  STOPJTIME;  "" 

bst_insertItarget,  MAY__BE_AVA1LARLE)  ; 
end  if; 

DIGRAPH. V_LISTS. NEXT (S) ; 
end  loop; 

end  EST  INSERT  SUCCESSORS  OF  OPT; 


procedure  EDL__lNSERT_SUCCESSORSjOF_OPT 

"'(THE_NODB  in  OP^INFO; 

STOPJTIME  ;  in  VALUE; 

COMPLETB_LIST  ;  in  out  SCHBLULE_IHPUTS_L1ST.L1ST; 

MAy_BE_AVAILABLB  :  in  out  SCHEDULe7iNPUTS_LIST.L1ST)  ia 

—  inaerta  the  aucceaaora  of  the  aelected  operator  into 

—  MAY_BE_AVAILABLE  liat  in  their  ordera  if  they  do  not  exiat  in 
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—  the  list. 

S  :  DIGRAPH. V__LISTS,liIST  ;■*  TMBJIOOE, SUCCESSORS; 

T  :  OPERATOR;~  ** 

OPT  ;  OPERATOR  THE^HODE.HOOE; 

TARGET  :  SCHEOUDE^INPUTsT 

begin 

while  DIGRAPH. V_LISTS.NOH_EMVTr(S)  loop 
T  DIGRAPH. V_LISTS. VALUE (S); 

if  NOT(OPERATOR_IH_LI.ST(T.THEJOPERATOR__ID,  COMPLETE__LIST) )  then 
TARGET. THE_OPERATbR  T,THE_pPERATOR_ID;  “ 

TARGET. THE~LOHER  :■  STOPJCIPBC;  "" 

while  we  ere  edding  the  .lucceaaora,  the  deadline  of  theae  operatora 
—  are  calculated  by  adding  either  their  finiah^within  if  exiata,  or 
period  to  the  atop_tiiM  of  the  laat  operator, 
if  T.THEJJITHIM  /-  0  then 

TARGEtTtHEJJPPER  STOPJTIME  +  T.THE^HITHIM; 
elae 

TARGET. THEJUPPER  STOPJTIME  +  T.THE_PERIOD; 
end  if; 

EOL_INSERT (TARGET,  HAY_BE_AVAILABLE) ; 
end  if; 

DIGRAPH. V__LISTS. NEXT (S)  ; 
end  loop; 

end  EDL__IHSERT_SUCCESSORS_OrjOPT; 


procedure  PROCESS_EST_AGEHOA 

TtHEjOP^IHEO^LIST:  in  OP_IHrO_LIST.LIST; 
MAt“be“aVA1LABLE:  in  out  SCHBDULB_IHPUTS_^L1ST.LIST; 
AGENDA*"  ;  in  out  SCHEDULB~1HPUTS~LIST.LISX; 

HARMONIC_BLOCK_LENGTH  :  in  INTEGER)  ia  “* 


"  proceaa  the  MAY_BE_AVILABLE  list  to  produce  AGENDA  liat  which  ia 
—  uaed  to  create  a  achedule  for  Earlieat  Start  Scheduling  Algorithai. 


V 

D 

A 

TEMP 

TARGET 

NEN_INPUT 

the”node 

CONTINUE 

STOPJTIME 

OPT 

EST 


SCHEDULE_INPUT.S_LISX.LIST  MAY_BE_AVAILABLE; 
SCHEDULe”iNPUTs“lISX . LIST; 
schedule_inputs”list.lisx; 

OP_INrO_LIST . LIST; 

SCHEDULB_INPUTS; 

SCHEDULE~INPUTS; 

OP_iNro;"' 

BOOLEAN; 

VALUE  0; 

SCHEDULE_INPUTS; 

INTL  JER;"" 


begin 

while  SCHEDC»LE_INPUTS_LIST.VALUB(V) .THB_LOHBR  <  HARMONIC_BLOCK_LENOXH  loop 

—  no  need  to  check  if  all  the  prediceaaora  are  in  the  AGENDA,  becauae 

—  thia  ia  the  firat  node  and  has  no  predeceaaora. 

OPT  :■»  SCHEDULB_IHPUTS_LIST. VALUE (V)  ; 

TEMP  riND_OPERATOR(THE_OP_INrO_LIST,  OPT.THEjOPERATOR) ; 


TIIBJIODE  OP_IHrO_LIST.VALUE(TEMP) ; 
if  OPT.THE^LOWER  >  0  then 

COHTIMUe’":"  CHECK_AGENDA(THE_H0DE,  AGENDA); 
olae 

CONTINUE  TRUE; 

end  if; 

—  if  the  opt.ia  not  an  end  node  chec)c  if  all  ita  succesaora  in  AGENDA 
if  notf  select  the  other  operator  and  repeat  the  aame  procedure. 

while  NOT  CONTINUE  loop 

SCHEDULE_1HPUTS^MST.NEXT(V)  ; 

OPT  ;*«  SCHEDULE~1NPUTS_LIST.VALUE(V) ; 

TEMP  FIND_OPERATOR(THE_OP_INrO_LIST,  OPT.THE_OPERATOR) ; 

THE__NODE  ;«  OP_lNrO__LIST. VALUE  (TEMP)  ;  “ 

if  OPT.THE_LOHER  >  0  then 

CONTINUE  CHECK_AGENDA (TKB__NODE,  AGENDA); 

else 

CONTINUE  TRUE; 

end  if; 
end  loop; 

TARGET  ;»  SCHEDULE_INPUTS_LIST. VALUE (V) ; 

SCHCDU'tE__INPUTS_LIST . REMOVE  (TARGET,  MAT_BE__AVA1LABLE)  ; 
ExceptionjOperator  TARGET. THEJOPERATOR; 

VERirT_TIME_LErT(HARMONIC_BLOCK_LENGTH,  STOP__TIME) ; 
if  TARGET. THE^LONER  >  STOP_TIHE~then 
—  xero  initially  for  the  first  one 
TARGET. THE_START  TARGET. THE_LOHER; 

else 

TARGET. THB_START  :•»  STOPJTIME; 

end  if; 

STOP__TIMB  TARGET. THE_START  +  THE_NODE.NODE.THB_MET; 

TARGET. THE_STOP  STOPJTIME;  ~  ” 

SCHEDULE_INPUTS_LIST. ADD (TARGET,  AGENDA) ; 

EST  TARGET. THE__START  +  THE_NODE.NODE.THE_PERIOD; 

—  if  the  operator  can  be  scheduled  again,  put  it  bac)c  into  the 
—  MAy_BE_AVAILABLE  list  in  its  order  with  the  new  EST. 
NEW_1NPUtTtHE_0PERAT0R  TARGET. THE_OPERATOR; 

NEh]]inPUT.THe”lOWER  EST; 

EST~1HSERT (NEW_INPUT,  MAY_BE_AVAILABLE) ; 

EST_INSERT_SUCCESSOR3 JjrjOPT (THE_NODE,  STOP_TIMB,  MAT_BE_AVAILABLE)  ; 

V  may_be_available7  ” 

end  loop; 

A  AGENDA; 

SCHEDULE_INPUTS_LIST . LIST_REVERSE (A,  AGENDA) ; 
end  PROCESS  EST  AGENDA; 


procedure  PROCESS_EDL_AGENDA 

(THE7oP_lNrO_LIST;  in  OP_lNrO__LIST.LIST; 
COMPLETE_LIST  :  in  out  SCHEDULB_INPUTS_LIST.LIST; 

AGENDA  ;  in  out  SCHEDULE  INPUTs''liST.LIST; 


328 


HAKMOHZC  BLOCK  LENGTH  :  in  INTEGER)  ia 


pcoceaa  the  MAT_8E_AVXLABLE  Hat  to  ptoduce  AGENDA  Hat  Mhich  ia 
—  uaed  to  cceate  «  acheduie  fot  Eariieat  Deadline  Scheduling  Algocittw. 


V 

TEMP 

A 

T 

PREV 

TARGET 

NEK_INPUT 

THEJJODE 

CONTINUE 

STOP_TIME 

OPT  ~ 

EST 


SCHEDULE__INPUTS_LIST,LXST  COMPLETE_LXST; 
SCHEDULE^XNPUTS^LIST.LXST  ;«  COMPLETe”lXST; 

schedule“inputs”lxst.lxst;  "" 

OP_lHrO_LIST . LIST; 
SCHEDULE_1NPUTS_LXST.LXST  null; 

schedule~xhputs7 

SCHEDULE^XNPUTS; 

op_iNro;~ 

BOOLEAN; 

VALUE  ;«  0; 

SCHEDULE_XNPUTS; 

integer;" 


begin 

while  SCHEDULE_XHPUTS__LXST.HOH_EMPTT(TEHP)  loop 

if  SCHEDULE_ZNPUTS_LXST.VALUE(TEHP)  .THE_LOWER  <  HARMO((XC_BLOCK_LBManrK  then 

—  no  need  to  check  if  all  the  predeceaaora  are  in  the  AGENDA 

OPT  SCHEDULB_XNPUT3_LI3T.VALUE(V) ; 

T  rXNDJ)PERATOR(TME_OP_lNrO_LIST,  OPT.TMEjOPERATOR)  ; 

THE^HODE  ;-"0P_IHr0_LXSTTvALUE{Tr; 
if  OPT.THE^LONER  >  0  then 

—  when  the  eariieat  atart  time  of  the  operator  ia  not  aero,  we 
— •  need  to  check  if  all  the  prediceaaora  of  the  operator  are  in 
—  AGENDA.  No  check  otherwiae. 

CONTINUE  CHECK_AGENDA(THEJtOOE,  AGENDA); 
else 

CONTINUE  ;»■  true; 
end  if; 

—  if  the  opt.  ia  not  an  end  node  check  if  all  ita  aucceaaora 

—  in  AGENDA,  if  not,  aelect  the  other  operator  and  repeat 

—  the  aame  procedure, 
while  NOT  CONTINUE  loop 

SCHEDULE_1NPUTS_LIST.NEXT(V) ; 

OPT  SCHEDULE_INPUTS_LI3T.VALUB(V) ; 

T  riHDJDPERATOR(THE_OP_lNrO_LIST,  OH>,THBjOPERATOR)  ; 

THB_HODE  ; -’0P_IHr0_LI3T. VALUE (TH  "" 

if  OPT.THE_LONER  >  0  then 

continue";-  CHECK_AGENDA (THE__N0DE,  AGENDA); 
elae 

CONTINUE  TRUE; 
end  if; 
end  loop; 

TARGET  SCHEDULE_INPUTS_LI3T. VALUE (V) ; 

3CHBDULB_INPUT3__LI3T . REMOVE (TARGET,  TEMP ) ; 
if  SCHEDULE_INPUTS  LZ3T.NON  EMPTY (PREV)  then 
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PREV.HEXT  :•  TE^JP^ 
else 

CWSPLETB^LIST  :«  TCHP; 
end  if; 

SKce|>eionjOpee»tor  :«  TARGET, THCjOPCRXTOH; 
VERXrT_TIH5_LSFT(HARMOHXC_»IiOCK_rtMGTH,  STOPJCXME) } 
if  TARGET. TH£  LOWER  >  STOP  TiME^then  ” 

^  mm 

'■’•seso  initially  for  the  firat  on« 

TARGET. THE_START  ;*•  TARGET,THB_LOWER; 
elae 

TARGET. THE^START  :«  STOPJfXME; 
end  if; 

STOPjrXHS  ;•*  TARGET. THE_START  THE__NODE.MOOE,T»E_HET; 

TARGET, TME__STOP  ;«  STOPJTXHE;  ”  “ 

SCHEDULE_XNPUTS^LIST. ADD (TARGET,  AGEHOA) ; 

EST  TARGET. THE_START  THE_NODE.HODE.THE_PERXOO; 

HEH^XHPUT.TnE_OPERATOR  TARGET, TME__OPERATOR; 
MEH^HPUT.THB^LOWER  EST; 

if  THE^MODE.WODE.TREJilTHIK  /"  0  then 

HEkJFnpUT.THE_UPPER  EST  +  THE_,MODE.WODE.THEJ«XTKXM; 
else 

MEW^XHPUT.THE^UPPER  :«  EST  +  THE_,NODE.NODE.TMB__PERXOO; 
end  if; 

EDWNSERT  (NEH^XNPUT,  TEMP)  ; 

—  thia  ia  to  keep  track  of  the  COMPLETE__liXST  pointer 
if  SCHEDULE_lNPUTS_riXST.MON_EMPXT{PREV)  then 

—  the  pointer  ia  pointing  a  record  other  than  fira'.  one. 
PREV.NEXT  :«  TEMP; 

elae 

—  the  pointer  ia  pointing  the  firat  record  in  the  list, 
COMPLETE_LISX  ;«  TEMP; 

end  if; 

EOIi_IHSERT_SUCCESSORSjOrjOPT 

“  (THeJrODE,  STOPjriME,  COMPLETE^LIST,  TEMP) 

V  :«  TEMP;  -  ~  - 

—  thia  ia  to  keep  track  of  the  CO«PLETE_LIST  pointer 
if  SCHEOOLE__IHPUTS_LIST.NON_EMPTT{PREV)  Then 

*—  the  pointer  ia  pointing  a  record  other  than  firat  one. 
PREV.NEXT  TEJ-IP; 
elae 

—  the  pointer  ia  pointing  the  firat  record  in  the  liat. 

COMPLSTE_liIST  TEMP; 

end  if; 

elae 

PREV  TEMP; 

SCHEDULB_XNPUXS  LIST. NEXT (TEMP) ; 
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V  TCMP; 
end  it; 
end  loop; 

while  SCHi:OULt_XHPUTS_MST,MOH_eMrTX(TIMr)  loop 
if  not  (OPCWTOR_IM~IiX{JT 

”(SCHEDULE__1MP0TS_L1ST.VAIU« (TEMT) .THIjOfERATOH, 
AGEHOA))''then  “ 

Exceptionjopecetoc  SCMEDULB_XHrUTS_XilST.VALUE<T5«f ) .THEjafERATOR; 
i:«J'e’"MXSSEDJ3PERATOR;  -  -  - 

end  if; 

SCHEDXLE_X.‘<PUTS_LXST.HEXT  (TEMf }  ; 
end  loop; 

A  AGENDA; 

SCHEOULE^XHPUTSJMST. X>XST_REVERSE  (A,  AGENDA)  ; 
end  PROCESS  EDI.  AGENDA;  ” 


ptocedute  SCHEDULE  J«1TH_EARLXESTJSTART 

TtMeJgRAPH  :  in  DIGRAPH. GRAPH; 

AGENDA  :  in  out  SCMEDULE_XHPUT3_LI3T.LX3T; 
HARMONXC_BLOCK_LENGTK  :  in  INTEGER)  is 

—  uaed  to  find  e  feasible  achedule  for  Earliest  3tart  Echeduling  Algorithia. 
THEJ3P_ZHfO_X.X3T  ;  OP_INrO_LXST.LXST; 

!  SCHEDULE_XNPUT3_I.I3T.LI3T; 

H_»JL  T  INTEGER  :«  HARMOHXC~BLOCK_LENGTH; 

L’‘:~OP_XNrO_LIST,LXST; 

p  !  op“iNro7 

be9ln 

BUXLD_OP_XNrO_LXST(THE_GRAPH,  TSEjOP_XNrO_LX3T) ; 

L  ;«  TMEJ)P_XHrO_LlST;~  ~ 

—  put  all  the  end  nodes/  which  has  no  predicessors/  into 

—  MAT_BE_AVAILABLB  list 

while  OP_YNrO_LXST.HOH_EMPTY(L)  loop 
P  OP_XNrO_LIST.VALUE(Ii); 

if  NOT (DIGRAPH. V_LISTS.HOM_EMPTT(P.PREDXCE3SOR3))  then 
PROCESS_EST_END_HODB  {HtiXJiEJiVhllMilX,  P .  NODE)  ; 
end  if; 

OP_INrO_LIST.NEXT(L) ; 
end  loop; 

PROCESS_EST_AGEHDA (THE_OP_XNrO_LXST,  MAT_BE_AVAILABLE/  AGENDA/  H_B_L) ; 
end  SCHEDULEjNITH_EARLIEST_iTART7  ~ 


procedure  SCHEDULE_MZTH_EARLZEST_DEADLXNE 

Tthe_graph  :  in  digraph. graph; 

AGENDA  :  in  out  3CHEDULE_XNPUT3_LZ3T.LZ3T; 

HARM0HXC_BL0CK_LEN0TH  ;  in  INTEGER)  is 

—  used  to  find  a  feasible  schedule  for  Earliest  Deadline  Scheduling 

—  Algoritiun 

THB_OP_lNrO_LIST  :  OP_lHrO_LlST.LlST; 
mat” Be”aVAILABLE  :  schedule  inputs  LIST. list; 
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H_D_L  ;  Iii*£GER  :»  HARMONIC_BLOCl«_I.EMGTH; 

L“:“0P_I»rOJ.IST.IiX{JT;  *" 

P  ;  Op”xhfoT 

begin 

aUItD_,OP^IHrO_l.IST(THE_GRXPH,  THE_OP_lNrO_IiXST) ; 

L  :*•  THe“0P_XHF0_LXST;“  ”  ” 

— >  puc  all  the  end  nodxta,  which  hsa  no  predeceaaora,  into 
—  MAY_nE_RVAILADLE  liat 
while  OPjfHrO_LXST.NON__EMPTY{L)  loop 
P  ;«  OP_IHFO_LXST. VALUE (L); 

if  »0T{DIGRAP».V__L1STS.H0H_EMPXY(P.PREDICESS0RS))  then 
PROCESS_SDL_EHD_NODS (MAy“bEJIVAILABLE,  P . NODE) ; 
end  if; 

OP^INrO_LlST.HEXT(L) ; 
end  loop; 

PROCESS_EOL_AGEHDA  (THE_pP_INFO_LIST,  MAY_BE_AVAXIABLE,  AGENDA,  H_B__L)  } 
end  SCHEDULE  WITH  EARLIEST  DEADlTnE;  ~ 


procedure  CREATE_STATIC_SCHEDULE  (THEjGRAPH  :  in  DIGRAPH. GRAPH; 

THE_SCHEDULE_INPUTS  :  in  SCHEDULE_IHPUTS_L1ST.LXST 
HABMONXC_BLOCK_LENGTH  :  in  XNTEGER)’"ia  "* 

— -  createa  the  atatic  achedule  output  and  printa  to  "aa.a”  file. 

V_LIST  :  DIGRAPH. V^LXSXS.LXST  THE jGRAPH. VERTICES; 

S*":  SCHEDULE_IHPUTS__LXST.L1ST  t-  THe"sCHEDULE_XNPUTS; 

SCHEDULE  ;  TEXT_.I0TFXLEjrYPE; 

OUTPUT  :  TEXT_10TriLE_M0DB  TEXT^XO.OUT^FILE; 

COUNTER  :  INTEGER  ;«  1;  ~  ”* 

package  VALUE__IO  ia  new  TEXT_IO. INTEGER_IO (VALUE) ; 
uae  VALUE^IO;"  ""  "* 

package  INTEGERXO  ia  new  TEXT^IO. INTEGER_IO (INTEGER) ; 
uae  XNTEGERXC;  ^  ” 


begin 

TEXT_IO. CREATE (SCHEDULE,  OUTPUT,  "/n/aunaZ/work/capa/prototypea/aa .a") ; 
TEXt”iO.PUT_LXNE (SCHEDULE,  "with  TL;  uaoTL;"); 

TEXT~IO.PUT~LINE (SCHEDULE,  "with  DS_PACKAGE;  uae  DS_PACKAGE; ")  ; 
TEXT~IO.PUtTsCHEDULB,  "with  PRIORXTY^DBFINITXONS;  ") ; 

TEXt3o.PUT__LINE  (SCHEDULE,  "uae  PRIORXTY_DEriNXTIONS; ")  ; 
TEXt”iO.PUT~LXHE (SCHEDULE,  "with  CALENDAR;  uae  CALENDAR;"); 
TEX’^”lO.PUT~LXHB (SCHEDULE,  "with  TEXT_XO;  uae  TEXT_XO;"); 
TEX*JlO.PUT~LINE (SCHEDULE,  "procedure~STATIC_SCHEDULE  ia")  ; 

while  DIGRAPH. V_LISTS.N0H_EMPTY(V_L1ST)  lo'p 
TEXT_IO.SET_COL (SCHEDULE,  3);  ” 

VARSTRXNG.  PUT  (SCHEDULE,  DXGRAPH.V^LISTt,  i(V_.LIST)  .THE_OPERATOR_XD) 
TEXT_IO . PUT_LINE (SCHEDULE,  "_TIMING_ERRv  ?  «-eption; " ) ; ” 

DIGRAPH. V__LXSTS. NEXT  (V_L1ST)  ; 
end  loop; 
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Tm*_IO.SCT_COIi(SCHEDUi:.E,  3); 

TEXt”xO.PUT~Ij1ME  (SCHEDULE#  "task  SCHEDULE  ia")  ; 

TEXt“iO.SEt”cOL (SCHEDULE,  5); 

TEXT_IO.PUt”lINE (SCHEDULE,  "pragma  priority  (STATIC_3CHEDUL*__PRIORXTX) ;■) ; 
TEXt“xO. SET j:OL (SCHEDULE,  3)  ; 

TEXt”iO.PUT~LXNE (SCHEDULE,  "and  SCHEDULE;"); 

TEXT~XO.NEm“lXNE (SCHEDULE)  ; 

TEXT_XO.SETjCOL (SCHEDULE,  3)  ; 

TEXt”xO,PUT~LXHE (SCHEDULE,  "taak  body  SCHEDULE  ia") ; 

TEXt”xO. PUT (SCHEDULE,  "  PERIOD  ;  conatant  :«  ") ; 

IHTEGERXO. PUT (SCHEDULE,  KARMOHXC_BLOCK_LEHGTH,  1); 

TEXT_XO.PUT_LXHE (SCHEDULE,  ";");*“ 

S  ;-~THE_SCHEDULE_XHPUTS; 

while  SCHEDULE_XHPUTS_LXST.HOH_EMPTT(S)  loop 
TEXT  XO. SET  COL (SCHEDULE,  5) ; 

VARSTRXMG. PUT (SCHEDULE,  SCHEDULE_1MPUTS_LIST. VALUE (S) .THEjOPERATOR) ; 
TEXT_XO.  PUT  (SCHEDULE,  "__3TOPJCIHE")  ; 

XNTEGERXO.PUT (SCHEDULE, “cOUMTER, 1) ; 

TEXT  XO. PUT (SCHEDULE,  "  ;  conatant  ") ; 

VALUE_IO. PUT (SCHEDULE,  SCHEDULB_XHPUTS_IiXST. VALUE (S) .THB_8TOP,  1); 
TEXT_XO.PUT_LXNE (SCHEDULE,  ";")7 
SCHEDULE_ IH?UTS_LXST . NEXT (S) ; 

COUNTER  T-  COUNTER  +  1; 
and  loop; 

TEXT_XO.SET_COL (SCHEDULE,  5)  ; 

TEXT^XO.PUT^LXNE (SCHEDULE,  "SLACKJTXME  :  duration;"); 

TEXT^XO.SET^COL (SCHEDULE,  5) ; 

TEXT^XO.PUT^LXNE (SCHEDULE,  "STARTjOr__PERXOD  :  time  clock;"); 
TEXT^IO.PUT^LXNE (SCHEDULE,  "bagin^) ;” 

TEXT^XO.PUT^LXNE (SCHEDULE,  "  loop") ; 

TEXT^IO. SETj:OL  (SCHEDULE,  5)  ,* 
text^io.putTschedule,  "begin"); 

S  THE_SCHEDULE_XNPUTS; 

COUNTER  1; 

while  SCHEDULE_INPUTS_LXST.NOH_EMPTy(S)  loop 
TEXT  XO.SETjCOL (SCHEDULE,  7) ; 

VARSTRXNG.PUT (SCHEDULE,  SCHEDULE_XHPUTS_LXST. VALUE (S) .THEJJPERATOR) ; 
TEXT_XO.PUT_LXNE (SCHEDULE,  "; ") ; 

TEXt7xO.SET_COL (SCHEDULE,  7) ; 

TEXT_IO. PUT (SCHEDULE,  "SLACKJTIMB  START_pr_PERXOD  +  ") ; 

VARSTRXNG . PUT (SCHEDULE,  SCHEDULE_XHPUTS_LIST .VALUE (S) . THEjOPERATOR) ; 
TEXT_10.  PUT  (SCHEDULE,  "_STOP JTIJtt" )  } 

INTEGERIO. PUT (SCHEDULE,  COUNTER,!) ; 

TEXT_XO.PUT_LXNE (SCHEDULE,  "  -  CLOCK;"); 

TEXT__IO. SET_COL  (SCHEDULE,  7)  ; 

TEXT_IO.PUT_LIHE (SCHEDULE,  "if  SLACK_TIME  >-  0.0  then") ; 

TEXT^IO. SET_COL (SCHEDULE,  9) ; 

TBXT_IO.PUTJLXNE (SCHEDULE,  "delay  (SLACKJTIMB) ; ") ; 

TBXt7iO.SETJ:OL (SCHEDULE,  7)  ; 

TEXT  10. PUT  LINE (SCHEDULE,  "elae") ; 
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TEXT_IO.SET_COIi  (SCHEDULE,  9)  ; 

TEXT~IO.PUtTsCIIEDULE,  "raise 

VARSTRIHG. PUT (SCHEDULE,  SCHEDULE_INPUTS_LIST. VALUE (S) .THEjOPERATOR) ; 
TEXT_IO . PUT^LIHE (SCHEDULE,  "JTImIhG^ERROR; " ) ;  ” 

TEXt“iO.SEt”cOL (SCHEDULE,  7)7 

TEXT^IO.PUT^LIHE (SCHEDULE,  "end  if;"); 

SCHEDULE_INPUTS_LIST . HEXT (S) ; 
if  SCHEDULE__XHPUTS_L1ST.N0M_EMPTT(S)  then 

pointer  ia  pointing  to  the  next  record  after  this. 

TEXT_XO. SET_COL (SCHEDULE,  7) } 

TEXT^XO.PUxTsCHEDULE,  "delay  (START_Or_PERIOD  +  ") ; 

VALUE^IO. PUT (SCHEDULE,  SCHEDULE^INPUXS^LXST. VALUE (S) .THE__3TART,  1) ; 
TEXT_10.PUX_LXNE (SCHEDULE,  CLOCK) ;^) ; 

TEXX^XO.NEH^LXNE (SCHEDULE)  ; 
end  if; 

COUNTER  :«  COUNTER  +  1; 
end  loop; 

TEXT_XO . SETjCOL (SCHEDULE,  7)  ; 

TEXT^IO, PUT^LINE (SCHEDULE,  "START  J5r_PER10D  START  J)r_PERIOD  +  PERIOD;"); 

TEXT^XO. SETJCOL (SCHEDULE,  7) ;  ^  ~ 

TEXT^IO.PUT^LINE (SCHEDULE,  "delay  (START_pr_PERXOD  -  clock);"); 

TEXT_IO. SETJCOL (SCHEDULE,  7)  ; 

TEXT^XO . PUT^LINE (SCHEDULE,  "exception" ) ; 

V_LIST  THE^GRAPH. VERTICES; 

while  digraphTv_lxsts.non_emptx(v__list)  loop 

TEXT_IO.SET_COL (SCHEDULE,  9) ; 

TEXX^IO.PUtTsCHEDULE,  "when  ") ; 

VARSTRXNG. PUT (SCHEDULE,  DIGRAPH. V_L1STS .VALUE (V_LIST) .THE_pPERATOR_XD) ; 
TEXT_XO.PUT_LINE (SCHEDULE,  "_T1MING_ERR0R  ->") ;~ 

TEXT^IO. SETJCOL (SCHEDULE,  ll7; 

TEXT^IO.PUtTsCHEDULE,  "PUT_LINE (""timing  error  from  operator  ") ; 
VARSTRXNG. PUT (SCHEDULE,  DIGRAPH. V_LISTS. VALUE (V_LIST) .THE_ppERATOR_lD) ; 
TEXT_XO.PUT_LINE (SCHEDULE,  """);"7;  ^ 

TEXT^IO . SET_COL (SCHEDULE,  11)  ; 

TEXT_IO.PUX_LINE (SCHEDULE,  "START_Or_PERIOD  clock;"); 

DIGRAPH .  V_LISTS .  HEXT  (V__LIST)  ; 
end  loop; 


TEXT_IO. SET_COL (SCHEDULE,  7)  ; 

TEXT^IO.PUT^LINE (SCHEDULE,  "end; ") ; 

TEXT^IO .  SET__COL  (SCHEDULE,  5)  ; 

TEXT^IO.PUT^LINB (SCHEDULE,  "end  loop;"); 

TEXT^IO. SETJCOL (SCHEDULE,  3)  ; 

TEXt7iO.PUT_LINE (SCHEDULE,  "end  SCHEDULE;"); 
TEXt7iO.NEW_L1NE (SCHEDULE) ; 

TEXT^IO.PUT^LINE (SCHEDULE,  "begin") ; 

TEXT^IO. SET_COL (SCHEDULE,  3) ; 

TEXt7iO.PUT_LINS (SCHEDULE,  "null; ") ; 
TEXT_IO.PUT_LINE (SCHEDULE,  "end  STATIC  SCHEDULE;"); 
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end  CRCATE_STATIC_SCHEDULE; 
end  OPERATOR  SCHEDULER; 
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APPENDIX  AB  STATIC  SCHEDULER  LIST  STRUCTURE 


—  file:  3cquence_3.« 

—  author:  murat  kilic 

—  Isaac  moatov 

—  tony  davia 

—  date:  aep  89 

—  modified:  oct  89  by  murat  kilic 


generic 

type  ITEM  ia  private; 
package  SEQUENCES  ia 
type  NODE; 

type  LIST  ia  access  NODE; 
type  NODE  ia 
record 

ELEMENT  :  ITEM; 

NEXT  :  LIST; 
end  record; 

BAD__VALUE  :  exception; 

function  EQUAL (LI  :  in  LIST;  L2  :  in  LIST)  return  BOOLEAN; 

procedure  EMPTY (L  :  out  LIST) ; 

function  NON_EMPTY(L  :  in  LIST)  return  BOOLEAN; 

function  SUBSEQUENCE  (LI  :  in  LIST;  L2  :  in  LIST)  return  BOOLEAN 

function  MEMBER (X  :  in  ITEM;  L  :  in  LIST)  return  BOOLEAN; 

procedure  ADD (X  :  in  ITEM;  L  :  in  out  LIST) ; 

procedure  REMOVE (X  :  in  ITEM;  L  :  in  out  LIST) ; 

procedure  LIST_REVERSE (LI  :  in  LIST;  L2  :  in  out  LIST); 

procedure  DUPLICATE (LI  :  in  LIST;  L2  :  in  out  LIST) ; 

function  LOOK4 (X  :  in  ITEM;  L  :  in  LIST)  return  LIST; 
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pi:ocedur«  NEXT  (X*  ;  in  out  LIST) ; 
function  VALUE  (Xi  ;  in  LIST)  return  ITEM; 
end  SEQUEHCES; 
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APPENDIX  AC  STATIC  SCHEDULER  LIST  STRUCTURE 


—  file: 

—  author: 


—  date: 

—  modified: 


aequence^b.a 
murat  killc 
iaaac  moatov 
tony  davia 
aep  69 

oct  89  by  murat  kilic 


with  UNCHECKED_DEALLOCATION; 
package  body  SEQUENCES  ia 

procedure  FREE  ia  new  UNCKECKEDJQEALLOCATXOH (NODE,  LIST) ; 

function  NOH_EMPTV(Ii  ;  in  LIST)  return  BOOLEAN  ia 
begin 

if  L  •"  null  then 
return  FALSE; 
elae 

return  TRUE; 
end  if; 

end  NON_EMPTy; 

procedure  NEXT(L  :  in  out  LIST)  ia 
begin 

if  L  /••  null  then 
L  :-  L.NEXT; 
end  if; 
end  NEXT; 

function  L00K4 (X  :  in  ITEM;  L  :  in  LIST)  return  LIST  ia 
LI  :  LIST  :-  L; 
begin 

while  NON_EMPTT(Ll)  loop 
if  LI. ELEMENT  •>  X  then 
return  LI; 
end  if; 

NEXT (LI) ; 
end  loop; 
return  null; 
end  LOOM; 
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proceduce  AOD(X  :  In  ITEM;  L  ;  in  out  LIST)  is 
~  ITEM  IS  ADDED  TO  THE  HEAD  OF  THE  LIST 
T  ;  LIST  n®w  MODE; 

begin 

T. ELEMENT  X; 

T.NEXT  :«  L; 

L  T; 
end  ADD; 

function  SUBSEQUENCE (LI  :  in  LIST;  L2  :  in  LIST)  return  BOOLEAN  ii 
L  ;  LIST  LI; 
begin 

while  MOM__EMPTT  (L)  loop 

if  not  MEMBER  (VAliUE  (L) ,  L2)  then 
return  FALSE; 
end  if; 

NEXT (L) ; 
end  loop; 
return  TRUE; 
end  SUBSEQUENCE; 

function  EQUAL (LI  :  in  LIST;  L2  :  in  LIST)  return  BOOLEAN  is 
begin 

return  (SUBSEQUENCE (LI,  L2)  and  SUBSEQUENCE (L2,  LI)); 
end  EQUAL; 

procedure  EMPTT(L  :  out  LIST)  is 
begin 

L  null; 
end  EMPTY; 

function  MEMBER (X  :  in  ITEM;  L  :  in  LIST)  return  BOOLEAN  is 
begin 

if  LOOK4(X,  L)  /-  null  then 
return  TRUE; 
else 

return  FALSE; 
end  if; 
end  MEMBER; 

procedure  REMOVE (X  :  in  ITEM;  L  :  in  out  LIST)  is 
CURR  ;  LIST  L; 

PREV  :  LIST  !-  null; 

TEMP  ;  LIST  null; 

begin 

while  HON_EMPTY (CURR)  loop 
if  VALUE (CURR)  -  X  then 
TEMP  CURR; 

NEXT (CURR) ; 

FREE (TEMP) ; 

if  PREV  /«•  null  then 


PREV.HEXT  ;»  CURR; 

«l3e 

L  CURR; 
end  i.£; 
else 

PREV  CURR; 

NEXT (CURR)  ; 
end  i£; 
end  loop; 
end  REMOVE; 

procedure  EZST_REVERSE(L1  :  in  LIST;  12  :  in  out  LIST)  ia 
L  ;  lilST  :«  11; 
begin 

EMPTX(12)  ; 

w)iilc  MOM__EMPTX  (1)  loop 
ADD{VA1UE(1) ,  12); 

HEXT (1)  ; 
end  loop; 
end  1IST__REVERSE; 

procedure  DUP1ICATE(11  :  in  USX;  12  :  in  out  USX)  is 
XEMP  ;  USX; 

1  ;  USX  11; 

begin 

EMPXX (12) ; 

while  N0M__EMPIX(1)  loop 
ADO (VAIUE (1) ,  XEMP); 

NEXX(L) ; 
end  loop; 

1ISX_REVERSE(XEMP,  12); 
end  DUPIICATE; 

function  VA1UE(1  :  in  IZSX)  return  ZXEM  ia 
begin 

if  MON_EMPXX(l)  then 
return  I.EIEMENX; 
else 

raise  BAD_VA1UE; 
end  i£; 
end  VAIUE; 

end  SEQUENCES; 
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APPENDIX  AD  STATIC  SCHEDULER  TOPOLOGICAL  SORTER 


—  fll«; 

—  author: 

—  date: 

"  modified: 


t__aott__s.a 
murat^kilic 
oct  B9 

dec  89  by  murat  kilic 


with  riLES/uae  FILES; 
package  TOPOLOGICAL^SORTER  ia 

procedure  TOPOLOGICAL_SORT 

(G  :  in  DIGRAPH. GRAPH; 

PRECEDEHCE__LIST  :  in  out  DIGRAPH. V_LISTS. LIST)  ; 

end  TOPOLOGICAL^SORTER; 
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APPENDIX  AE  STATIC  SCHEDULER  TOPOLOGICAL  SORTER 


—  file: 

b_3ort  Jb .  a 

author: 

murat  kilio 

—  date: 

oct  89 

—  modified: 

nov  89  by  murat  kilic 

with  TSXT_IO; 

with  FILES;  use  FILES; 

package  body  TOPOLOGXCAL_SORTER  ia 

—  Thia  package  determinea  the  precedence  order  in  which  operators  must 
execute  in  the  final  schedule.  Thia  information  ia  determined 

—  from  the  graph. 

procedure  TOPOLOGICAL^SORT  (G;  in  DIGRAPH. GRAPH; 

PRECEMNCE__LIST;  in  out  DIGRAPH. V_LISTS. LIST)  if 

—  Thia  procedure  determinea  which  operators  in  the  graph  must 
—  be  executed  before  another. 

Q  :  DIGRAPH. V_LISTS. LIST; 

begin 

DIGRAPH. T_SORT (G, PRECEDENCB__L1ST)  ; 

Q  precedence_list;  ” 

end  TOPOLOGICAL  SORT; 


end  TOPOLOGICAL  SORTER; 


APPENDIX  AF  DYNAMIC  SCHEDULER 


—  file:  dyniimic_^3ch«dul«c.a 

—  euthor:  fr«n)c  palexxo 

—  date:  dec  89 

—  modified:  dec  89  by  laura  j.  white 


with  TEXT__IO;  uae  TEXT^IO; 
procedute’"DyNAMIC_SCHEDUIiER  ia 
H0K_CR1TS  :  FlLEJCXPE; 

DSV3  :  riLE^TXPE; 

IM__STR1HG  ;  STRING  (1 . .  72)  ; 

LAST  :  NATURAL; 

begin 

OPEN(NON_CRITS,  IN__riLB,  "/n/aun82/work/caps/prototypea/nonjccita'') ; 
CREATE (DSV3,  OUT^EILE,  "/n/aun82/woxk/cap8/pxototyp«a/da.a'*) ; 
PUTJ!iINE(DSV3,  "with  TL;  uae  TL;"); 
put”* HNE(DSV3,  "package  DS_PACKAGB  ia") ; 

PUt”lINE{DSV3/  "  teak  DTNAMIC_SCHBDULE  ia") ; 

— >  ayatem  defined  priority  for  dynaadc  achedule 
PUT  L1NE(DSV3/  "  pragma  priority  (1);"); 

PUt“lINE{DSV3,  "  end  DYNAMIC^_SCHEDULE;■); 

PUT”L1NE(DSV3,  "end  DS_PACKAGB;") ; 

NEWSLINE {DSV3) ; 

PUT_LINE(DSV3/  "package  body  DS_PACKAGB  ia"); 

PUT_L1NE{DSV3,  "  taak  body  DYNAMIC_SCHBDULB  ia"); 

PUt3'I»<S{DSV3,  "  begin"); 

PUt”lihe(DSV3,  "  delay  (1.0);"); 

while  not  END_or_riLE (NON_CRITS)  loop 
begin 

GET_LINE (NON_CRITS,  IN_STRING,  LAST); 

PUT(DSV3/  "  ”  "); 
for  INDEX  in  1..LAST  loop 
PUT {DSV3,  1N_STRING (INDEX) ) ; 
end  loop; 

PUT_L1NE (DSV3,  ";"); 
end; 

end  loop; 

PUT_LINE(DSV3,  "  end  DYNAMIC_SCHEDULE; ") ; 

PUT~LINB(DSV3,  "end  DS_PACKAGB; ") ; 
end  DYNAMIC  SCHEDULER; 
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